勤務表作成してます。
A1に「ON・OFF」を表示します。
「ON」のときに、ダブルクリックで、上のセルを表示、右クリックで「１」を表示します。
「OFF」のときは、コンテキストメニュ-(通常の操作)が出来るようにしたいのですが、ON.OFFの切り替え操作のVBAがわかりません。
よろしくお願いします。
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell = ActiveCell.Offset(-1, 0).Value
If Target = Range("$A$1") Then
Cancel = True
If Range("$A$1").Value = "イベントON" Then
Range("$A$1").Value = "イベントOFF"
Else
Range("$A$1").Value = "イベントON"
End If
If Range("$A$1").Value = "イベントOFF" Then
Exit Sub
End If
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell = "1"
' If Target = Range("$A$1") Then
' Cancel = True
'
' If Range("$A$1").Value = "イベントON" Then
' Range("$A$1").Value = "イベントOFF"
' Else
' Range("$A$1").Value = "イベントON"
' End If
If Range("$A$1").Value = "イベントOFF" Then
Exit Sub
End If
End Sub
今まで、Excel VBA で、
If ActiveSheet.Button1.Visible = False Then
Exit Sub
End If
が問題なく動いていましたが、VISTA を使っておられる人からエラーが出るという指摘を受けました（Excel のバージョンはわかりません）。どうやら上の文に問題があるような気がして、いろいろ調べてみましたら、皆さん
If ActiveSheet.Shapes("Button1").Visible = False Then
Exit Sub
End If
としておられるようなのです。なぜ、Shapes("Button1")としなければならないのか、教えていただけませんか。
VB2005で既存のExcelのグラフのデータ範囲を設定したいのですが
どなたか教えてください。
VB6.0では下記のコードで実現できましたが
VB2005ではいろいろ調べたり変更してみたりしたのですが実現できませんでした
OSはWindows2000でExcelも2000です
Dim ExAp As Excel.Application
Dim ExBook As Excel.Workbook
Dim ExSheet As Excel.Worksheet
On Error GoTo er
Set ExAp = CreateObject("Excel.Application")
Set ExBook = ExAp.Workbooks.Open("C:\ファイル名.xls")
Set ExSheet = ExBook.Worksheets("シート名")
ExAp.Visible = True
ExSheet.Activate
ExSheet.ChartObjects("グラフ 1").Activate
With ActiveChart
.SeriesCollection(1).XValues = ExSheet.Range("B21:B24")
.SeriesCollection(1).Values = ExSheet.Range("C21:C24")
End With
Exit Sub
er:
Set ExSheet = Nothing
Set ExBook = Nothing
Set ExAp = Nothing
MsgBox Err.Description
