Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13757 / 76732 ←次へ | 前へ→

【68477】Re:検索した行の指定セルに値を入力したい
回答  UO3  - 11/3/9(水) 19:59 -

引用なし
パスワード
   ▼ちゃぷ さん:

こんなコードでも。

Sub Sample2()
  Dim myNum As Variant
  Dim i As Long
  myNum = Application.InputBox(prompt:="検索数値をいれてください", Type:=1)
  If myNum = False Then Exit Sub
 
  With Sheets("Sheet1")  '<== 適宜変更
   i = .Range("A" & .Rows.Count).End(xlUp).Row
   With .Range("C1:C" & i)
     .Formula = "=IF(A1=" & myNum & ",""X"","""")"
     .Value = .Value
   End With
  End With
 
End Sub
3 hits

【68473】検索した行の指定セルに値を入力したい ちゃぷ 11/3/9(水) 15:12 発言
【68475】Re:検索した行の指定セルに値を入力したい n 11/3/9(水) 16:41 発言
【68477】Re:検索した行の指定セルに値を入力したい UO3 11/3/9(水) 19:59 回答
【68496】Re:検索した行の指定セルに値を入力したい ちゃぷ 11/3/10(木) 19:37 お礼
【68497】Re:検索した行の指定セルに値を入力したい ちゃぷ 11/3/10(木) 20:53 質問
【68498】Re:検索した行の指定セルに値を入力したい n 11/3/10(木) 21:41 発言
【68503】Re:検索した行の指定セルに値を入力したい ちゃぷ 11/3/11(金) 10:44 お礼

13757 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free