・1から3までの数字をいれた場合に、9：00から11：00と表示する場合として以下のソースを書きます。（以前にこちらで教えていただきました）
・a = array(）の部分について、直接書くのではなく、セルを参照することはできますでしょうか？
a = array("cell(1,1)", "cell(1,2)", "cell(1,3)"）みたいなイメージです。
よろしくお願い致します。
option base 1
private sub Worksheet_Change(byval Target as excel.range)
dim h as range
dim a as variant
a = array("9:0", "10:0", "11:0") ’１から３
on error resume next
for each h in application.intersect(target, range("D:D"))
if cells(h.row, "F") <> "○" then
if 1=< h.value and h.value <= 3 then ’１から３
if time >= timevalue(a(h.value)) then
cells(h.row, "F") = a(h.value)
end if
end if
end if
next
end sub
エクセルのシート上のすべての画像を削除するには？
図のようにヤフーのトップページをコピーしてエクセルに貼り付けました。
その際画像も一緒に張り付いてしまいますが、
その画像をすべて消すＶＢＡコードを教えてください。
Sub シートの全てのハイパーリンクを削除する()
ActiveSheet.Hyperlinks.Delete
End Sub
これで、ハイパーリンクは消えるので、画像バージョンが知りたいです。
よろしくお願いします。
Sub test()
Dim shp As Shape
With ActiveWindow.Selection.SlideRange
For Each shp In .Shapes
shp.TextEffect.FontSize = 9
Next shp
End With
End Sub
これで、現在のシートのテキストのすべてのフォントサイズを設定できたのですが、
全ての色を設定するにはどうすればいいでしょうか？
たとえば現在のシートのすべての文字の色を赤（２５５）にしたい場合は、どういうコードになりますか？
ヘルプを見てもよくわかりませんでした。
いつもお世話になります。
WINDWS7 EXCELL2010 です。
下記の１ ２のマクロを同じシート内にイベントプロシージャを二つ挿入したところ、
※１ ※２のような現象が起きました。
この現象を解決したくご指導を仰ぎたいです。
宜しくお願いします。
※１ エラー表示
コンパイルエラー:
名前が適切ではありません; Worksheet_BeforeDoubleClick
※２ 下記の構文が青色に反転
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
１
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A2:A51")) Is Nothing Then Exit Sub
Cancel = True
Sheets(CStr(Target.Value)).Select
End Sub
２
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myRange As Range
Set myRange = Intersect(Target, Range("B2:B51"))
If Not myRange Is Nothing Then
Select Case Target.Value
Case ""
Target.Value = "○"
Case Else
Target.ClearContents
End Select
Cancel = True
End If
End Sub
いつもこの質問サイトには大変おせわになっております。
2つブック 条件転記と分岐の方法というタイトルで質問させて頂いて
コードのアドバイスを頂いたのですが
本来は元の質問に追記したかったのですが
ベストアンサーを選んだので回答が締め切ってしまったので
一部、やりたいことと相違があったので再度質問させて頂きます
２つのブックがあって
IDデータ表.xlsは
IDと日付が記述されています。
ID管理票のIDの場所はバラバラですが
日付は必ずIDの横３つのどれかに記述されています。
IDデータ表.xlsとID管理票.xlsのIDが一致して
尚且つID管理票.xlsのIDの横３つのセルに日付が入ってるものを上書き
空白のセルは無視する
IDデータ表のB列に取消と入っていたら
ID管理票と合致したIDとその横３つの日付をクリアする。
このマクロで
IDデータ表とID管理票のIDが一致したら
IDデータ表の日付をID管理票に転記するという内容で
With c.Offset(, 1)の命令でIDのすぐ横に記述しています。
この命令をID管理票の元々記述あった日付のセルに上書きしたいのですが
どう変えれば動くでしょうか？
アドバイスの方 よろしくお願いいたします
Sub TEST()
Dim w0 As Worksheet, w1 As Worksheet
Dim i As Long, c As Range
Set w0 = Workbooks("IDデータ表.xls").Worksheets("大元")
Set w1 = Workbooks("ID管理票.xls").Worksheets("管理")
For i = 2 To w0.Cells(Rows.Count, "A").End(xlUp).Row
Set c = w1.Cells.Find(what:=w0.Cells(i, "A"), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
If w0.Cells(i, "B") <> "取消" Then
With c.Offset(, 1)
.Value = w0.Cells(i, "B")
.NumberFormatLocal = "m/d"
End With
Else
c.Resize(, 4).ClearContents
End If
End If
Next i
End Sub
