Excel VBA 質問スレ Part67

Excel VBA 質問スレ Part67at TECH

Excel VBA 質問スレ Part67 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

5:デフォルトの名無しさん 
 20/06/26 20:20:30.07 PIx3bjtD0.net
日本語訳： 
上のサイトのコードだと 
キーワードを含むセルの値が、G列に出力されます。 
これを以下のように変更したいです 
キーワードを含むセルを検索したあと、このセルの値だけでなく、このセルのすぐ右側のセルの値をH列に出力したいです。 
できたら、オプションボタンを新設して、右側セルの値を出力するかしないかを選択できるようにしたいです

面倒だから後はお前らにまかせた

6:デフォルトの名無しさん 
 20/06/26 20:26:55.66 ZjxMZdyJ0.net
>>4すみません、コードはります 
Private Sub outputCellInfo(ByVal sTmpPath As String, ByVal sFilePath As String, ByVal sTmpSheetName As String, _ 
ByVal rFoundCell As Range) 
Dim OptionButton1 As Boolean 
If OptionButton1 = True Then 
With ThisWorkbook.Sheets(STR_GREP_SHEET_NAME) 
.Cells(lcnt, 2).Value = lcnt - 7 
.Cells(lcnt, 3).Value = sFilePath 
.Cells(lcnt, 4).Value = sTmpPath 
.Cells(lcnt, 5).Value = sTmpSheetName 
.Cells(lcnt, 6).Value = convertRange(rFoundCell.Column) & rFoundCell.Row 
.Cells(lcnt, 7).Value = rFoundCell.Value 
End With 
lcnt = lcnt + 1 
Else: 
With ThisWorkbook.Sheets(STR_GREP_SHEET_NAME) 
.Cells(lcnt, 2).Value = lcnt - 7 
.Cells(lcnt, 3).Value = sFilePath 
.Cells(lcnt, 4).Value = sTmpPath 
.Cells(lcnt, 5).Value = sTmpSheetName 
.Cells(lcnt, 6).Value = convertRange(rFoundCell.Column) & rFoundCell.Row 
.Cells(lcnt, 7).Value = rFoundCell.Offset(0, 1).Value 
End With 
lcnt = lcnt + 1 
End If 
End Sub

次ページ