Excel VBA質問箱 IV

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

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


66732 / 76734 ←次へ | 前へ→

【14564】Re:ある範囲に文字を入力させるには
回答  kuku  - 04/6/1(火) 22:58 -

引用なし
パスワード
   こんばんは。参考まで。

Sub test()

  Dim ix1 As Integer, ix2 As Integer
  Dim i As Integer
  
  For i = 1 To 5
    If Cells(1, i) = "1" Then
      ix1 = i
      Exit For
    End If
  Next i
  
  For i = 1 To 5
    If Cells(3, i) = "3" Then
      ix2 = i
      Exit For
    End If
  Next i
  
  If ix1 < ix2 And ix2 - ix1 > 1 Then
    Range(Cells(2, ix1 + 1), Cells(2, ix2 - 1)) = "2"
  ElseIf ix1 > ix2 And ix1 - ix2 > 1 Then
    Range(Cells(2, ix2 + 1), Cells(2, ix1 - 1)) = "2"
  End If

End Sub

もっと良い方法がいろいろあると思いますが。
0 hits

【14561】ある範囲に文字を入力させるには Yoko 04/6/1(火) 21:01 質問
【14564】Re:ある範囲に文字を入力させるには kuku 04/6/1(火) 22:58 回答
【14565】Re:ある範囲に文字を入力させるには ちゃっぴ 04/6/1(火) 23:05 回答
【14568】Re:ある範囲に文字を入力させるには Ron 04/6/1(火) 23:38 回答

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