Excel VBA質問箱 IV

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

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


19722 / 76732 ←次へ | 前へ→

【62437】Re:選択範囲内で中央の選択範囲の取得
発言  ON  - 09/7/22(水) 15:16 -

引用なし
パスワード
   ▼つるりん さん:
ありがとうございます

>これでいけるかな。
駄目でした・・・

今更ながらで申し訳ないですが
サンプルDT作成とご提示頂いたコードを実行すると下記のようになってしまいます

取得したい値は
B2:D2
B4:D4
E4:H4
なんですが・・・・

>アドバイスを参考にもう少し検討してみたいと思います
は、前回、頂いたコードで思い浮かんだのが
Resize でしたが・・・・
新規にご提示頂いたようなきれいなコードはかけないと思いますが
イメージ的には近いものを想像していたと思います

SET_DT 実行後 try6 を実行するとお分かり頂けるかと思います

なんか、無理っぽそうな気がしてきました・・・・


Sub SET_DT()
 
  Range("B2").Value = ">゜))))彡   魚"
  Range("B2:D2").HorizontalAlignment = xlCenterAcrossSelection

  Range("B4").Value = "くコ:彡   いか"
  Range("B4:D4").HorizontalAlignment = xlCenterAcrossSelection
  
  Range("E4").Value = "~ >゜)〜〜〜    へび"
  Range("E4:H4").HorizontalAlignment = xlCenterAcrossSelection
  
End Sub


Sub try6()
Dim myRng As Range
Dim mystr As String, celad As String, mystr2 As String
Dim mycell As Range
Dim i As Long

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 & ","
    End If
  Next
 
  If mystr <> "" Then
    mystr = "" & Left(mystr, Len(mystr) - 1) & ""
    Range(mystr).Select
    mystr2 = ActiveCell.Resize(, Selection.Cells.Count).Address(0, 0)
    celad = celad & mystr2 & vbCrLf
  End If
Next
  'MsgBox celad
  Debug.Print celad
  
  Set myRng = Nothing
End Sub

イミディエイトウインドウ
B2:D2
B4:H4
134 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 質問

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