Excel VBA質問箱 IV

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

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


19709 / 76732 ←次へ | 前へ→

【62451】Re:選択範囲内で中央の選択範囲の取得
お礼  ON  - 09/7/22(水) 18:12 -

引用なし
パスワード
   まだ 完成していませんが、下記で何とかなりそうです

ありがとうございました
今後もよろしくお願いいたします

Sub try8()

Dim myRng As Range
Dim mystr As String, celad As String, mystr2 As String
Dim mycell As Range
Dim i As Long

Dim tg_v As String

Range("B1:H5").Select
Set myRng = Selection
For i = 0 To myRng.Rows.Count
  mystr = ""
  For Each mycell In myRng.Resize(1).Offset(i)

    If mycell.HorizontalAlignment = 7 Then
    
      mystr = mystr & mycell.Address(0, 0) & ","
      
      If IsEmpty(mycell.Offset(0, 1).Value) <> True Then
        
        If mystr <> "" Then
          Debug.Print mystr
          mystr = ""
        End If

      End If
      
    Else
    
      If mystr <> "" Then
        Debug.Print mystr
        mystr = ""
      End If
      
    End If
    
  Next
  
  If mystr <> "" Then
    Debug.Print mystr
  End If


Next

 
Set myRng = Nothing
  
End Sub

160 hits

【62416】選択範囲内で中央の選択範囲の取得 ON 09/7/21(火) 16:27 質問
【62418】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/21(火) 17:01 発言
【62419】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/21(火) 17:10 発言
【62420】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/21(火) 17:23 回答
【62426】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/21(火) 17:50 発言
【62427】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/21(火) 18:32 回答
【62428】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/21(火) 18:48 発言
【62429】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/21(火) 20:32 回答
【62437】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/22(水) 15:16 発言
【62439】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/22(水) 15:51 発言
【62442】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/22(水) 16:39 発言
【62443】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/22(水) 16:44 発言
【62446】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/22(水) 17:00 回答
【62447】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/22(水) 17:12 発言
【62451】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/22(水) 18:12 お礼
【62425】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/21(火) 17:45 回答
【62452】Re:選択範囲内で中央の選択範囲の取得 もも 09/7/22(水) 18:35 発言
【62455】Re:選択範囲内で中央の選択範囲の取得 つるりん 09/7/22(水) 19:31 発言
【62456】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/22(水) 19:38 お礼
【62470】Re:選択範囲内で中央の選択範囲の取得 ON 09/7/23(木) 14:13 質問

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