Excel VBA質問箱 IV

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

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


19713 / 76732 ←次へ | 前へ→

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

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

>なので、選択行につながって同じ書式を設定
>している場合それらを一体とみなします。
了解しています

>もうひとつ、設定するせる数が決まっているなら(たとえば3セル)
残念ながら固定ではありません

>値があるかで判別すれば出来そうな気がしてきました
については、検討途中ですが下記のようになっています

ただし、例がよくないみたいなので
SET_DT を 一部修正して SET_DT2 を実行しています

上記では
B2,C2,D2,F2,G2,H2,
B4,C4,D4,
E4,F4,G4,H4,
となり取りあえず4行目は把握できたような気がしますが
2行目がうまく処理出来ていません

立て続けに、書き込み頂いたので
途中ですが書き込みさせて頂きました

Sub SET_DT2()

  Range("B2").Value = ">゜))))彡   魚"
  Range("B2:D2").HorizontalAlignment = xlCenterAcrossSelection
  
  Range("F2").Value = ">゜))))彡2   魚"
  Range("F2:H2").HorizontalAlignment = xlCenterAcrossSelection

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

Sub try8()
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(0, 0) & ","
      
      If IsEmpty(mycell.Offset(0, 1).Value) <> True Then
        
        Debug.Print mystr
        mystr = ""
      
      End If
    End If
  Next
  
  Debug.Print mystr

  If mystr <> "" Then
    mystr = "" & Left(mystr, Len(mystr) - 1) & ""
    
    Range(mystr).Select
    Sleep 500
    
    mystr2 = ActiveCell.Resize(, Selection.Cells.Count).Address(0, 0)
    celad = celad & mystr2 & vbCrLf
    
    
  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 質問

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