If MsgBox("指定したフォルダ以下にあるxlsxファイルをGREPします。" & vbCrLf & "よろしいですか?", vbQuestion + vbYesNo) = vbNo Then Exit Sub End If ' 設定値取得 strPassword = shtMain.Cells(CONFIG_START_ROW + 1, CONFIG_COL).Text strSheetName = shtMain.Cells(CONFIG_START_ROW +...
VBAで「ElseIf」を使ったサンプルになります。2行目:「Cells(2, 2) >= 80」が1つ目の条件式です。B2セルが80点以上かどうかを判定します。 3行目:B2セルが80点以上の場合、C2セルに「◎」を入力します。 4行目:「Cells(2, 2) >= 60」が2つ目の条件式です。B2セルが60点以上かどうか...
i) + 1) Mod 10 = Cells(n - 11, i) Then a1 = (Cells(n - 11, i) + 1) Mod 10 a2 = (Cells(n - 11, i) + 9) Mod 10 For j = n - 9 To n If Cells(j, i) = a1 Or Cells(j, i) = a2 Then Cells(j, i)...
= 1 To 10 If Cellsi, 1) <> "" Then ExitFor End Cellsi, 1) = 1 Next End For～のネスト(入れ子) 縦10、横10列に1を入れる場合です。 Sub 3() Dim , j For = 1 To 10 For = 1 To 10 Cellsi, j) = 1 Nextj Nexti End ネスは、概ね3段階...
If .Cells(i, 20) Like "*" & txtSearch & "*" Or StrConv(.Cells(i, 20), vbWide) Like "*" & txtSearch & "*" Then j = j ; 1 ReDim Preserve searchData(j) searchData(j) = i End If Next i End With If j = 0 Then:: 【エラー発生時のメッセージ】 実行時エラー '5...
Set checknm = ws.Range(ws.Cells(i, 2).Text).Name If InStr(checknm, "check") > 0 Then 上記では"check"を探しているようですが、 最初の投稿では、「Range("A2").Name ="test"」と書かれていましたよね。 その場合、こういう動作になるということです。
1 To .Str2 = Split(.FoundFiles(m), )n1 = UBound(Str2)Str2 = Str2(n1)If Str2 Str1 ThenSet wb = (Path1 & &Str2), True, True)Rowdn1(1).B65536.End(xlUp).RowFor i = 5 To Rowdn1For j = 2 To 12Workbooks(Str1).Sheets(1).Cells(k, j)= (1).Cells(i, j)Next j...
検索文字がない場合にはメッセージを表示 プログラム Sub Instr関数01_3() Dim String1 As String Dim String2 As String String1 = "ABCDEFG" String2 = "1" If InStr(String1, String2) = 0 Then MsgBox String1 & "に" & String2 & "がない。" Else MsgBox String1 & "の" & FindNo ...
‘判断表2的列数 If Application.WorksheetFunction.CountIf(Sheets(1).[b1:b1000], Sheets(2).Cells(i, 2)) = 0 Then Sheets(2).Range(Sheets(2).Cells(i, 1), Sheets(2).Cells(i, c)).Copy Sheets(1).Cells(a, 1) ‘将表2中与表1不重复的数据复制到表1中 ...
Public Sub 加单引号(sh As Worksheet)Dim c As Range, tmp With sh.UsedRange For Each c In .Cells tmp = c.Value If tmp <> "" Then '如果是数字内容，则加 单引号 '可以删除条件，不管是否数字都加上 If IsNumeric(tmp) Then c.Value = "'" & tmp End If Next End With End ...