同時選擇兩個細胞

Question

對所有人的問候！

我是新的VBA，和我做一個應用程序，我在代碼的某個部分弄得一點點，請找例子如下表：

我的代碼需要基於每行單元格創建一個文件夾，例如：

從B1開始，它驗證它是父還是子，如果是父，保存第一個字母（在本例中爲「F」 ），如果它是「兒子」，則保存爲「S」。

二，如果A1爲100，則必須保存單元格值。

現在我需要做的事情是創建在ActiveWorkbook.path其命名爲一個文件夾（如在最後一個例子）\ F100 \ S101 \ S102並繼續..

我代碼是這樣的，但我知道它不能正常工作。

Sub Test() 


Dim rng1 As Range 
Dim rng2 As Range 

Set rng1 = Range("A1") 
Set rng2 = Range("B1").Select 


    Set fso = CreateObject("Scripting.FileSystemObject") 


Do While Not IsEmpty(rng2) 

    If rng2.Value = "Father" Then 
     fso.createFolder (ActiveWorkbook.Path & "\" & rng1.Value2) 

     ElseIf rng2.Value = "Son" Then 
     fso.createFolder (ActiveWorkbook.Path & "\" & rng1.Value2) 

    End If 

    ActiveCell.Offset(1, 0).Select 

Loop 



End Sub 

感謝您的時間！

Answer 1

喜歡的東西：

Sub Test() 

    Dim rng1 As Range, fso, v 

    Set rng1 = Range("A1") 
    Set fso = CreateObject("Scripting.FileSystemObject") 

    Do While Not IsEmpty(rng1) 

     v = rng1.Offset(0, 1).value 

     If v = "Father" Or v = "Son" Then 

      fso.createFolder (ActiveWorkbook.Path & "\" & _ 
           Left(v, 1) & rng1.Value2) 

     End If 

     Set rng1 = rng1.Offset(1, 0) 

    Loop 

End Sub