●質問の主旨
ウォッチ式の「値」と「型」が、自分で作成した場合と参考書例が異なるのは、
どんな原因が考えられるでしょうか？ご存知の方ご教示願います。
●質問の補足
下記のコードでウォッチウィンドウの操作の学習を行っています。
「ウォッチ式の追加」には以下の通り、入力しています。
・式
i=3
・対象
（プロシージャ）lesson3
（モジュール） Module1
・ウォッチの種類
式がTrueのときに中断
ところがこの状態でマクロを実行し、ウォッチウィンドウを見ると
自分で作成した場合と、参考書例とで「値」と「型」の結果が異なります。
参考書通りにやっているつもりですが、なぜ結果が異なるのか
さっぱり分かりません。
（自分）
値→対象範囲外
型→Empty
（参考書）
値→True
型→Boolean
●コード
Option Explicit
Sub lesson3()
Dim i As Long
For i = 1 To 3
Cells(i, 1) = Worksheets(i).Name
Next
MsgBox "終了しました"
End Sub
Ａの範囲をダブルクリックしたら特殊文字挿入。
Ｂの範囲をクリックしたらＡ４セルの文字表示を赤色にして点滅表示
というマクロを作成しようとしています。
ＡとＢの範囲は一部重複しています。
重複している範囲は、クリックの内容が優先でＡ４セルを点滅表示としたい。
VBAは全く初心者で、いろんなサイトで見た内容を貼り付けで下記まで作成してみましたが、
動作が中途半端になっています。
どうもシングルクリックとダブルクリックの対応部分でけんかをしているみたいなのですが、
どの様に修正したらよいか教えて頂きたく。
尚、全く新たなVBAでもかまいません、よろしくお願いします。
'Ａの範囲；E16:E98あるいはK14:K147をダブルクリックしたら特殊文字挿入
'特殊文字が表示されている状態でダブルクリックした場合は空欄表示
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("E16:E98", "K14:K147")) Is Nothing Then Exit Sub
Cancel = True
If Target.Value = "" Then
Target.Value = ChrW(&H2713)
Else
Target.ClearContents
End If
End Sub
'Ｂの範囲;B15:G37をクリックしたらＡ４セルの文字表示を赤色にして点滅表示
'Ｂの範囲外をクリックしたら文字表示を点滅表示と停止させて黒色表示…（まだ作成未です）
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 15 Or Target.Row > 37 Then Exit Sub
If Target.Column < 2 Or Target.Column > 7 Then Exit Sub
点滅フラグ = True
Call 点滅
End Sub
'標準モジュール部
Public 点滅フラグ As Boolean
Public Sub 点滅()
If Range("A4").Font.ColorIndex = 3 Then
Range("A4").Font.ColorIndex = 2
Else
Range("A4").Font.ColorIndex = 3
End If
If 点滅フラグ Then
'進捗状況を示すために準備する
指定時刻 = Now + TimeValue("0時00分01秒") '1秒後
待ち時間 = TimeValue("0時00分01秒")
Application.OnTime TimeValue(指定時刻), "点滅", TimeValue(待ち時間)
End If
End Sub
excel2003です。
よろしくお願いします。
今現在、どこからかの流用で、下記のように3(C)列の3行目から最終行まで
入力する形にしていますが、最終行ではなく(1)途中の空白、若しくは(2)指定の
行がある場合、又は(3)罫線が引かれている所まで はどのように書き換えれば
よいでしょうか？
※(1)、(2)、(3)のそれぞれの場合で回等頂ければと思います。
Dim LastRow As Integer
LastRow = Cells(Rows.Count, 3).End(xlUp).Row
For p = 3 To LastRow
Cells(p, 2).Select
ActiveCell.FormulaR1C1 = p - 2 '開始位置の2行ズレ分、-2を入力
Next p
削除されません。
下記のとおりですが、どう考えても動きません、どなたか修正をお願いします。
初心者です。宜しくお願いします。
Sub Ksakujyo()
Dim ObjRange As Range
On Error Resume Next
Set ObjRange = Application.InputBox("削除範囲を選択して下さい。", "印刷範囲", Type:=8)
On Error GoTo 0
If ObjRange Is Nothing Then
MsgBox "キャンセルされました。"
End If
If Selection.Count = 1 Then Exit Sub
On Error Resume Next
Selection.SpecialCells(xlCellTypeBlanks).Delete shift:=xlShiftUp
Exit Sub
End Sub
