Excel VBA質問箱 IV

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

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


13759 / 76732 ←次へ | 前へ→

【68475】Re:検索した行の指定セルに値を入力したい
発言  n  - 11/3/9(水) 16:41 -

引用なし
パスワード
   サンプルの一例としては
Sub test()
  Dim c As Range
  Dim firstAddress As String
  Dim x

  x = InputBox("?")
  With ActiveSheet
    Set c = .Columns("A").Find(What:=x, _
                  After:=.Cells(1), _
                  LookIn:=xlValues, _
                  LookAt:=xlWhole, _
                  SearchOrder:=xlByRows, _
                  SearchDirection:=xlNext, _
                  MatchCase:=False)
    If Not c Is Nothing Then
      firstAddress = c.Address
      Do
        .Cells(c.Row, "C").Value = "×"
        Set c = .Cells.FindNext(c)
        If c Is Nothing Then Exit Do
      Loop While c.Address <> firstAddress
      Set c = Nothing
    End If
  End With
End Sub
..こんな感じです。

0 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 お礼

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