Excel VBA質問箱 IV

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

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


2717 / 13646 ツリー ←次へ | 前へ→

【66409】指定のセル範囲内の文字列 ai 10/9/3(金) 10:48 質問[未読]
【66410】Re:指定のセル範囲内の文字列 UO3 10/9/3(金) 11:28 発言[未読]
【66411】Re:指定のセル範囲内の文字列 ai 10/9/3(金) 11:36 お礼[未読]
【66412】Re:指定のセル範囲内の文字列 UO3 10/9/3(金) 12:07 回答[未読]
【66413】Re:指定のセル範囲内の文字列 ai 10/9/3(金) 12:49 お礼[未読]
【66414】Re:指定のセル範囲内の文字列 UO3 10/9/3(金) 12:53 発言[未読]
【66415】Re:指定のセル範囲内の文字列 UO3 10/9/3(金) 12:56 発言[未読]
【66416】Re:指定のセル範囲内の文字列 UO3 10/9/3(金) 13:03 回答[未読]
【66417】Re:指定のセル範囲内の文字列 ai 10/9/3(金) 13:33 お礼[未読]
【66418】Re:指定のセル範囲内の文字列 ai 10/9/3(金) 13:45 お礼[未読]
【66419】Re:指定のセル範囲内の文字列 ai 10/9/3(金) 14:17 質問[未読]
【66420】Re:指定のセル範囲内の文字列 UO3 10/9/3(金) 15:27 回答[未読]
【66421】Re:指定のセル範囲内の文字列 ai 10/9/3(金) 16:16 お礼[未読]
【66422】Re:指定のセル範囲内の文字列 UO3 10/9/3(金) 16:45 回答[未読]
【66423】Re:指定のセル範囲内の文字列 ai 10/9/3(金) 17:32 お礼[未読]
【66433】Re:指定のセル範囲内の文字列 UO3 10/9/4(土) 10:05 回答[未読]

【66409】指定のセル範囲内の文字列
質問  ai  - 10/9/3(金) 10:48 -

引用なし
パスワード
   指定のセル範囲内の同一文字列がある場合に色を(黄色)をつける。
よろしくお願いいたします。

【66410】Re:指定のセル範囲内の文字列
発言  UO3  - 10/9/3(金) 11:28 -

引用なし
パスワード
   ▼ai さん:

こんにちは

指定セル範囲に、"AAA" "BBB" "CCC" の それぞれが複数ある場合は
どうします?全て黄色ですか?

【66411】Re:指定のセル範囲内の文字列
お礼  ai  - 10/9/3(金) 11:36 -

引用なし
パスワード
   ▼UO3 さん:
>▼ai さん:
>
>こんにちは
>
>指定セル範囲に、"AAA" "BBB" "CCC" の それぞれが複数ある場合は
>どうします?全て黄色ですか?
よろしくお願いします。
全て黄色です。

【66412】Re:指定のセル範囲内の文字列
回答  UO3  - 10/9/3(金) 12:07 -

引用なし
パスワード
   ▼ai さん:

こんにちは

全て黄色がSample1 、 
おまけに Sample2 は 色を変えていきます。
(でも6種類なので7種類目の文字列は最初の文字列と同じ色になりますが)

Sub Sample1()
Dim fAddr As String
Dim myA As Range, myC As Range, fCell As Range
Dim myDic As Object
 Set myA = Range("C4:F11") '<== 指定範囲 例
 Set myDic = CreateObject("Scripting.Dictionary")
 myA.Interior.ColorIndex = xlNone
 For Each myC In myA
  If Not IsEmpty(myC.Value) Then
   If Not myDic.Exists(myC.Value) Then
    myDic(myC.Value) = True
    Set fCell = myA.Find(what:=myC.Value, LookIn:=xlValues, LookAt:=xlWhole)
    fAddr = fCell.Address
    Do
     fCell.Interior.Color = vbYellow
     Set fCell = myA.FindNext(fCell)
    Loop While fAddr <> fCell.Address
   End If
  End If
 Next
 Set myA = Nothing
 Set myC = Nothing
 Set fCell = Nothing
 Set myDic = Nothing
End Sub

Sub Sample2()
Dim cnt As Long
Dim colorTbl As Variant
Dim fAddr As String
Dim myA As Range, myC As Range, fCell As Range
Dim myDic As Object
 Set myA = Range("C4:F11") '<== 指定範囲 例
 Set myDic = CreateObject("Scripting.Dictionary")
 myA.Interior.ColorIndex = xlNone
 colorTbl = Array(vbYellow, vbCyan, vbGreen, vbMagenta, vbBlue, vbRed)
 For Each myC In myA
  If Not IsEmpty(myC.Value) Then
   If Not myDic.Exists(myC.Value) Then
    myDic(myC.Value) = True
    Set fCell = myA.Find(what:=myC.Value, LookIn:=xlValues, LookAt:=xlWhole)
    fAddr = fCell.Address
    Do
     fCell.Interior.Color = colorTbl(cnt Mod 6)
     Set fCell = myA.FindNext(fCell)
    Loop While fAddr <> fCell.Address
    cnt = cnt + 1
   End If
  End If
 Next
 Set myA = Nothing
 Set myC = Nothing
 Set fCell = Nothing
 Set myDic = Nothing
End Sub

【66413】Re:指定のセル範囲内の文字列
お礼  ai  - 10/9/3(金) 12:49 -

引用なし
パスワード
   ▼UO3 さん:
>▼ai さん:
>
>こんにちは
>
>全て黄色がSample1 、 
>おまけに Sample2 は 色を変えていきます。
>(でも6種類なので7種類目の文字列は最初の文字列と同じ色になりますが)
>
>Sub Sample1()
>Dim fAddr As String
>Dim myA As Range, myC As Range, fCell As Range
>Dim myDic As Object
> Set myA = Range("C4:F11") '<== 指定範囲 例
> Set myDic = CreateObject("Scripting.Dictionary")
> myA.Interior.ColorIndex = xlNone
> For Each myC In myA
>  If Not IsEmpty(myC.Value) Then
>   If Not myDic.Exists(myC.Value) Then
>    myDic(myC.Value) = True
>    Set fCell = myA.Find(what:=myC.Value, LookIn:=xlValues, LookAt:=xlWhole)
>    fAddr = fCell.Address
>    Do
>     fCell.Interior.Color = vbYellow
>     Set fCell = myA.FindNext(fCell)
>    Loop While fAddr <> fCell.Address
>   End If
>  End If
> Next
> Set myA = Nothing
> Set myC = Nothing
> Set fCell = Nothing
> Set myDic = Nothing
>End Sub
>
>Sub Sample2()
>Dim cnt As Long
>Dim colorTbl As Variant
>Dim fAddr As String
>Dim myA As Range, myC As Range, fCell As Range
>Dim myDic As Object
> Set myA = Range("C4:F11") '<== 指定範囲 例
> Set myDic = CreateObject("Scripting.Dictionary")
> myA.Interior.ColorIndex = xlNone
> colorTbl = Array(vbYellow, vbCyan, vbGreen, vbMagenta, vbBlue, vbRed)
> For Each myC In myA
>  If Not IsEmpty(myC.Value) Then
>   If Not myDic.Exists(myC.Value) Then
>    myDic(myC.Value) = True
>    Set fCell = myA.Find(what:=myC.Value, LookIn:=xlValues, LookAt:=xlWhole)
>    fAddr = fCell.Address
>    Do
>     fCell.Interior.Color = colorTbl(cnt Mod 6)
>     Set fCell = myA.FindNext(fCell)
>    Loop While fAddr <> fCell.Address
>    cnt = cnt + 1
>   End If
>  End If
> Next
> Set myA = Nothing
> Set myC = Nothing
> Set fCell = Nothing
> Set myDic = Nothing
>End Sub
ありがとうございます。
Sub Sample1()で動作確認をいたしました。
指定した範囲内で重複した文字列(2個)のセルが黄色になりました。
しかし指定した範囲内で重複していない文字列のセルも黄色になります。
よろしくお願いいたします。

【66414】Re:指定のセル範囲内の文字列
発言  UO3  - 10/9/3(金) 12:53 -

引用なし
パスワード
   ▼ai さん:

>指定した範囲内で重複した文字列(2個)のセルが黄色になりました。
>しかし指定した範囲内で重複していない文字列のセルも黄色になります。

範囲内が全て黄色になったということですか?

【66415】Re:指定のセル範囲内の文字列
発言  UO3  - 10/9/3(金) 12:56 -

引用なし
パスワード
   ▼ai さん:

再現しました。
デバッグします。しばしお待ちください。

【66416】Re:指定のセル範囲内の文字列
回答  UO3  - 10/9/3(金) 13:03 -

引用なし
パスワード
   ▼ai さん:

ごめんなさい

デバッグ前の間違ったコードをアップしていたようです。
Sample1、Sample2 再度 アップします。

Sub Sample1()
Dim fAddr As String
Dim myA As Range, myC As Range, fCell As Range
Dim myDic As Object
 Set myA = Range("C4:F11") '<== 指定範囲 例
 Set myDic = CreateObject("Scripting.Dictionary")
 myA.Interior.ColorIndex = xlNone
 For Each myC In myA
  If Not IsEmpty(myC.Value) Then
   If Not myDic.Exists(myC.Value) Then
    myDic(myC.Value) = True
    If WorksheetFunction.CountIf(myA, myC.Value) > 1 Then
     Set fCell = myA.Find(what:=myC.Value, LookIn:=xlValues, LookAt:=xlWhole)
     fAddr = fCell.Address
     Do
      fCell.Interior.Color = vbYellow
      Set fCell = myA.FindNext(fCell)
     Loop While fAddr <> fCell.Address
    End If
   End If
  End If
 Next
 Set myA = Nothing
 Set myC = Nothing
 Set fCell = Nothing
 Set myDic = Nothing
End Sub

Sub Sample2()
Dim cnt As Long
Dim colorTbl As Variant
Dim fAddr As String
Dim myA As Range, myC As Range, fCell As Range
Dim myDic As Object
 Set myA = Range("C4:F11") '<== 指定範囲 例
 Set myDic = CreateObject("Scripting.Dictionary")
 myA.Interior.ColorIndex = xlNone
 colorTbl = Array(vbYellow, vbCyan, vbGreen, vbMagenta, vbBlue, vbRed)
 For Each myC In myA
  If Not IsEmpty(myC.Value) Then
   If Not myDic.Exists(myC.Value) Then
    myDic(myC.Value) = True
    If WorksheetFunction.CountIf(myA, myC.Value) > 1 Then
     Set fCell = myA.Find(what:=myC.Value, LookIn:=xlValues, LookAt:=xlWhole)
     fAddr = fCell.Address
     Do
      fCell.Interior.Color = colorTbl(cnt Mod 6)
      Set fCell = myA.FindNext(fCell)
     Loop While fAddr <> fCell.Address
     cnt = cnt + 1
    End If
   End If
  End If
 Next
 Set myA = Nothing
 Set myC = Nothing
 Set fCell = Nothing
 Set myDic = Nothing
End Sub

【66417】Re:指定のセル範囲内の文字列
お礼  ai  - 10/9/3(金) 13:33 -

引用なし
パスワード
   ▼UO3 さん:
>▼ai さん:
>
>ごめんなさい
>
>デバッグ前の間違ったコードをアップしていたようです。
>Sample1、Sample2 再度 アップします。
>
>Sub Sample1()
>Dim fAddr As String
>Dim myA As Range, myC As Range, fCell As Range
>Dim myDic As Object
> Set myA = Range("C4:F11") '<== 指定範囲 例
> Set myDic = CreateObject("Scripting.Dictionary")
> myA.Interior.ColorIndex = xlNone
> For Each myC In myA
>  If Not IsEmpty(myC.Value) Then
>   If Not myDic.Exists(myC.Value) Then
>    myDic(myC.Value) = True
>    If WorksheetFunction.CountIf(myA, myC.Value) > 1 Then
>     Set fCell = myA.Find(what:=myC.Value, LookIn:=xlValues, LookAt:=xlWhole)
>     fAddr = fCell.Address
>     Do
>      fCell.Interior.Color = vbYellow
>      Set fCell = myA.FindNext(fCell)
>     Loop While fAddr <> fCell.Address
>    End If
>   End If
>  End If
> Next
> Set myA = Nothing
> Set myC = Nothing
> Set fCell = Nothing
> Set myDic = Nothing
>End Sub
>
>Sub Sample2()
>Dim cnt As Long
>Dim colorTbl As Variant
>Dim fAddr As String
>Dim myA As Range, myC As Range, fCell As Range
>Dim myDic As Object
> Set myA = Range("C4:F11") '<== 指定範囲 例
> Set myDic = CreateObject("Scripting.Dictionary")
> myA.Interior.ColorIndex = xlNone
> colorTbl = Array(vbYellow, vbCyan, vbGreen, vbMagenta, vbBlue, vbRed)
> For Each myC In myA
>  If Not IsEmpty(myC.Value) Then
>   If Not myDic.Exists(myC.Value) Then
>    myDic(myC.Value) = True
>    If WorksheetFunction.CountIf(myA, myC.Value) > 1 Then
>     Set fCell = myA.Find(what:=myC.Value, LookIn:=xlValues, LookAt:=xlWhole)
>     fAddr = fCell.Address
>     Do
>      fCell.Interior.Color = colorTbl(cnt Mod 6)
>      Set fCell = myA.FindNext(fCell)
>     Loop While fAddr <> fCell.Address
>     cnt = cnt + 1
>    End If
>   End If
>  End If
> Next
> Set myA = Nothing
> Set myC = Nothing
> Set fCell = Nothing
> Set myDic = Nothing
>End Sub
ありがとうございます。
正常動作しました。
セルの指定範囲ですが、下記のようにしたところ”実行時エラー”になりました。
記述ミスなのか不可能な範囲指定なのか御教授願います。
Set myA = Range("B4:B53" & "H4:H53")

【66418】Re:指定のセル範囲内の文字列
お礼  ai  - 10/9/3(金) 13:45 -

引用なし
パスワード
   ▼ai さん:
>▼UO3 さん:
>>▼ai さん:
>>
>>ごめんなさい
>>
>>デバッグ前の間違ったコードをアップしていたようです。
>>Sample1、Sample2 再度 アップします。
>>
>>Sub Sample1()
>>Dim fAddr As String
>>Dim myA As Range, myC As Range, fCell As Range
>>Dim myDic As Object
>> Set myA = Range("C4:F11") '<== 指定範囲 例
>> Set myDic = CreateObject("Scripting.Dictionary")
>> myA.Interior.ColorIndex = xlNone
>> For Each myC In myA
>>  If Not IsEmpty(myC.Value) Then
>>   If Not myDic.Exists(myC.Value) Then
>>    myDic(myC.Value) = True
>>    If WorksheetFunction.CountIf(myA, myC.Value) > 1 Then
>>     Set fCell = myA.Find(what:=myC.Value, LookIn:=xlValues, LookAt:=xlWhole)
>>     fAddr = fCell.Address
>>     Do
>>      fCell.Interior.Color = vbYellow
>>      Set fCell = myA.FindNext(fCell)
>>     Loop While fAddr <> fCell.Address
>>    End If
>>   End If
>>  End If
>> Next
>> Set myA = Nothing
>> Set myC = Nothing
>> Set fCell = Nothing
>> Set myDic = Nothing
>>End Sub
>>
>>Sub Sample2()
>>Dim cnt As Long
>>Dim colorTbl As Variant
>>Dim fAddr As String
>>Dim myA As Range, myC As Range, fCell As Range
>>Dim myDic As Object
>> Set myA = Range("C4:F11") '<== 指定範囲 例
>> Set myDic = CreateObject("Scripting.Dictionary")
>> myA.Interior.ColorIndex = xlNone
>> colorTbl = Array(vbYellow, vbCyan, vbGreen, vbMagenta, vbBlue, vbRed)
>> For Each myC In myA
>>  If Not IsEmpty(myC.Value) Then
>>   If Not myDic.Exists(myC.Value) Then
>>    myDic(myC.Value) = True
>>    If WorksheetFunction.CountIf(myA, myC.Value) > 1 Then
>>     Set fCell = myA.Find(what:=myC.Value, LookIn:=xlValues, LookAt:=xlWhole)
>>     fAddr = fCell.Address
>>     Do
>>      fCell.Interior.Color = colorTbl(cnt Mod 6)
>>      Set fCell = myA.FindNext(fCell)
>>     Loop While fAddr <> fCell.Address
>>     cnt = cnt + 1
>>    End If
>>   End If
>>  End If
>> Next
>> Set myA = Nothing
>> Set myC = Nothing
>> Set fCell = Nothing
>> Set myDic = Nothing
>>End Sub
>ありがとうございます。
>正常動作しました。
>セルの指定範囲ですが、下記のようにしたところ”実行時エラー”になりました。
>記述ミスなのか不可能な範囲指定なのか御教授願います。
> Set myA = Range("B4:B53" & "H4:H53")
申し訳ありません”&”のかわりに”、”で動作しました。
ありがとうございました。

【66419】Re:指定のセル範囲内の文字列
質問  ai  - 10/9/3(金) 14:17 -

引用なし
パスワード
   ▼ai さん:
>▼ai さん:
>>▼UO3 さん:
>>>▼ai さん:
>>>
>>>ごめんなさい
>>>
>>>デバッグ前の間違ったコードをアップしていたようです。
>>>Sample1、Sample2 再度 アップします。
>>>
>>>Sub Sample1()
>>>Dim fAddr As String
>>>Dim myA As Range, myC As Range, fCell As Range
>>>Dim myDic As Object
>>> Set myA = Range("C4:F11") '<== 指定範囲 例
>>> Set myDic = CreateObject("Scripting.Dictionary")
>>> myA.Interior.ColorIndex = xlNone
>>> For Each myC In myA
>>>  If Not IsEmpty(myC.Value) Then
>>>   If Not myDic.Exists(myC.Value) Then
>>>    myDic(myC.Value) = True
>>>    If WorksheetFunction.CountIf(myA, myC.Value) > 1 Then
>>>     Set fCell = myA.Find(what:=myC.Value, LookIn:=xlValues, LookAt:=xlWhole)
>>>     fAddr = fCell.Address
>>>     Do
>>>      fCell.Interior.Color = vbYellow
>>>      Set fCell = myA.FindNext(fCell)
>>>     Loop While fAddr <> fCell.Address
>>>    End If
>>>   End If
>>>  End If
>>> Next
>>> Set myA = Nothing
>>> Set myC = Nothing
>>> Set fCell = Nothing
>>> Set myDic = Nothing
>>>End Sub
>>>
>>>Sub Sample2()
>>>Dim cnt As Long
>>>Dim colorTbl As Variant
>>>Dim fAddr As String
>>>Dim myA As Range, myC As Range, fCell As Range
>>>Dim myDic As Object
>>> Set myA = Range("C4:F11") '<== 指定範囲 例
>>> Set myDic = CreateObject("Scripting.Dictionary")
>>> myA.Interior.ColorIndex = xlNone
>>> colorTbl = Array(vbYellow, vbCyan, vbGreen, vbMagenta, vbBlue, vbRed)
>>> For Each myC In myA
>>>  If Not IsEmpty(myC.Value) Then
>>>   If Not myDic.Exists(myC.Value) Then
>>>    myDic(myC.Value) = True
>>>    If WorksheetFunction.CountIf(myA, myC.Value) > 1 Then
>>>     Set fCell = myA.Find(what:=myC.Value, LookIn:=xlValues, LookAt:=xlWhole)
>>>     fAddr = fCell.Address
>>>     Do
>>>      fCell.Interior.Color = colorTbl(cnt Mod 6)
>>>      Set fCell = myA.FindNext(fCell)
>>>     Loop While fAddr <> fCell.Address
>>>     cnt = cnt + 1
>>>    End If
>>>   End If
>>>  End If
>>> Next
>>> Set myA = Nothing
>>> Set myC = Nothing
>>> Set fCell = Nothing
>>> Set myDic = Nothing
>>>End Sub
>>ありがとうございます。
>>正常動作しました。
>>セルの指定範囲ですが、下記のようにしたところ”実行時エラー”になりました。
>>記述ミスなのか不可能な範囲指定なのか御教授願います。
>> Set myA = Range("B4:B53" & "H4:H53")
>申し訳ありません”&”のかわりに”、”で動作しました。
>ありがとうございました。
もう一度御教授願いいたします。
Set myA = Range("B4:B53" , "H4:H53","B60:B109")
上記のように記述したところ、(指定範囲が3個)
”コンパイルエラー”
”引数の数が一致していません。又は不正なプロパティを指定しています。”
というダイヤログが表示されます。
よろしくお願いいたします。

【66420】Re:指定のセル範囲内の文字列
回答  UO3  - 10/9/3(金) 15:27 -

引用なし
パスワード
   ▼ai さん:
>Set myA = Range("B4:B53" , "H4:H53","B60:B109")
>上記のように記述したところ、(指定範囲が3個)
>”コンパイルエラー”
>”引数の数が一致していません。又は不正なプロパティを指定しています。”
>というダイヤログが表示されます。

こんにちは

セル範囲指定で

  Range("○○","□□") は ○○【から】□□までということで2個のみOK.
  Range("○○,□□,△△") とすると、○○【と】□□【と】△△となります。

【66421】Re:指定のセル範囲内の文字列
お礼  ai  - 10/9/3(金) 16:16 -

引用なし
パスワード
   ▼UO3 さん:
>▼ai さん:
>>Set myA = Range("B4:B53" , "H4:H53","B60:B109")
>>上記のように記述したところ、(指定範囲が3個)
>>”コンパイルエラー”
>>”引数の数が一致していません。又は不正なプロパティを指定しています。”
>>というダイヤログが表示されます。
>
>こんにちは
>
>セル範囲指定で
>
>  Range("○○","□□") は ○○【から】□□までということで2個のみOK.
>  Range("○○,□□,△△") とすると、○○【と】□□【と】△△となります。
ということは、分割されたセル範囲指定は2個までということですか。残念
ありがとうございました。

【66422】Re:指定のセル範囲内の文字列
回答  UO3  - 10/9/3(金) 16:45 -

引用なし
パスワード
   ▼ai さん:
>>>Set myA = Range("B4:B53" , "H4:H53","B60:B109")
>ということは、分割されたセル範囲指定は2個までということですか。残念
>ありがとうございました。

いえいえ、ちがいますよ〜!

Set myA = Range("B4:B53,H4:H53,B60:B109")

というように指定すればいくつでもOKですよ。

【66423】Re:指定のセル範囲内の文字列
お礼  ai  - 10/9/3(金) 17:32 -

引用なし
パスワード
   ▼UO3 さん:
>▼ai さん:
>>>>Set myA = Range("B4:B53" , "H4:H53","B60:B109")
>>ということは、分割されたセル範囲指定は2個までということですか。残念
>>ありがとうございました。
>
>いえいえ、ちがいますよ〜!
>
>Set myA = Range("B4:B53,H4:H53,B60:B109")
>
>というように指定すればいくつでもOKですよ。
ありがとうございます。
今日は時間切れのため又来週の火曜日にお願いいたします。

【66433】Re:指定のセル範囲内の文字列
回答  UO3  - 10/9/4(土) 10:05 -

引用なし
パスワード
   ▼ai さん:
>今日は時間切れのため又来週の火曜日にお願いいたします。

おはようございます。
週末から来週火曜日までネットの使えない場所へ行きますので
もしかしたらフォローできないかもしれません。

セル範囲の指定構文についてはネットでググると参考になる記事が多いので
いくつか目を通してみられたらよろしいかと思います。

以下、新規ブックの標準モジュールにコピペして実行してみてください。

Option Explicit

Sub セル範囲の選択()

 '基本形
 Range("B2:C5").Select
 MsgBox "B2:C5 を選択しました。"
 
 '複数のセル範囲の指定
 '以下のようにRange( ) の中の先頭と最後だけに"を付け、
 'セル範囲(またはセル)をカンマでつなげてください。
 
 Range("B2:C5,F5:G7,I8:J9").Select
 MsgBox "B2:C5とF5:G7とI8:J9を選択しました。"
 
 '連続したセル範囲の指定
 '以下のようにRange( ) の中で選択したいセル範囲の左上隅と右下隅の
 'セルを指定します。
 '指定する2つのセルをセル範囲にしてもエラーにはなりませんが
 'あまり意味はありません。
 
 Range("A1", "D5").Select
 MsgBox "A1からD5までを選択しました。"
 Range(Range("A5"), Range("C7")).Select
 MsgBox "A5からC7までを選択しました。"
 Range(Cells(2, 3), Cells(4, 5)).Select
 MsgBox "セル(2,3)からセル(4,5)までを選択しました。"
 
 'おまけ
 '指定した2つのセル範囲で重なっている部分を指定する方法
 'Range( ) の中の先頭と最後だけに"をつけ、中のセル範囲とセル範囲の間に
 '半角ブランクを入れます。
 
 Range("A1:D5 B2:E8").Select
 MsgBox "A1:D5 と B2:E8 の2つの領域で重なっている部分を選択しました。"
 
End Sub

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