Excel VBA質問箱 IV

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

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


18974 / 76732 ←次へ | 前へ→

【63195】Re:2つのセルのうち値の入っているほうを取得する
発言  もも  - 09/10/15(木) 10:54 -

引用なし
パスワード
   ▼まい さん:
こんにちは

条件によって、色々な方法があると思いますが
例として2案ほど載せてみます。

 Sub test1()
 Dim r As Range
 With Worksheets("Sheet1").Rows(3)
  Set r = .Find(What:="*", After:=.Cells(1), LookIn:=xlFormulas, LookAt:=xlPart, _
          SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
          MatchByte:=False, SearchFormat:=False)
  If Not r Is Nothing Then MsgBox r.Address(0, 0) & ":" & r.Value
 End With
 End Sub
 
 Sub test2()
 Dim r As Range
 With Worksheets("Sheet1")
  For Each r In .Range(.Range("B3"), .Cells(3, .Columns.Count))
   If r.Value <> "" Then
    MsgBox r.Address(0, 0) & ":" & r.Value
    Exit For
   End If
  Next r
 End With
 End Sub

1 hits

【63194】2つのセルのうち値の入っているほうを取得する まい 09/10/15(木) 9:22 質問
【63195】Re:2つのセルのうち値の入っているほうを取... もも 09/10/15(木) 10:54 発言
【63209】Re:2つのセルのうち値の入っているほうを取... まい 09/10/15(木) 14:03 お礼
【63198】Re:2つのセルのうち値の入っているほうを取... stattis 09/10/15(木) 11:35 発言
【63199】Re:2つのセルのうち値の入っているほうを取... stattis 09/10/15(木) 11:53 回答
【63204】Re:2つのセルのうち値の入っているほうを取... まい 09/10/15(木) 13:47 発言
【63207】Re:2つのセルのうち値の入っているほうを取... まい 09/10/15(木) 13:52 質問
【63215】Re:2つのセルのうち値の入っているほうを取... stattis 09/10/15(木) 17:45 回答
【63225】Re:2つのセルのうち値の入っているほうを取... まい 09/10/16(金) 16:48 お礼
【63206】Re:2つのセルのうち値の入っているほうを取... m2m10 09/10/15(木) 13:51 発言
【63208】Re:2つのセルのうち値の入っているほうを取... まい 09/10/15(木) 13:54 お礼

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