下記コードを作りましたが、全く反応がありません。
どこが悪いのか、指摘いただけませんでしょうか？
よろしくお願いします。
・オプションボタン1を選択＝リストシートのB列をリストボックスへ表示
・オプションボタン2を選択＝リストシートのC列をリストボックスへ表示
・リストボックスから一項目を選択、値を入力シートへ入力
Private Sub UserForm2_Initialize()
If OptionButton1.Value = True Then
With UserForm2
.ListBox1.RowSource = "リスト!B3:B" & lastRow
End With
End If
If OptionButton2.Value = True Then
With UserForm2
.ListBox1.RowSource = "リスト!C3:C" & lastRow
End With
End If
End Sub
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Worksheets("入力!").ActiveCell.Value = ListBox1.Value
End Sub
以上
初めて質問させていただきます。
現在Excel2010でピボットグラフを描画しています。
（ただし、利用ユーザーがExcel2010ではないため、保存形式をExcel97-2003形式で保存）
描画したグラフに対し、VBAで次のように編集を行っています。
Dim objSrs As Series
With ActiveChart
For Each objSrs In .SeriesCollection
'データ要素をループ
For i = 1 To objSrs.Points.Count
With objSrs.Points(i)
.MarkerStyle = xlMarkerStyleDiamond '※実際はSelect Caseの条件で設定
.MarkerForegroundColorIndex = 29 '※実際はSelect Caseの条件で設定
'マーカーの色を変更
.MarkerBackgroundColorIndex = .MarkerForegroundColorIndex
'マーカーの線幅を設定
.Format.Line.Weight = 1.5
End With
Next i
Next objSrs
End With
作成した自分の端末(Excel2010)では問題ないのですが、Excel2007が入った端末では、
.Format.Line.Weight = 1.5
の所で次のようなエラーになってしまいます。
実行時エラー '-2147417848(80010108)'
'Weight' メソッドは失敗しました:'LineFormat'オブジクト
ウォッチで中を確認してみると、objSrs.Formatには値があるのですが
objSrs.Format.Lineには、<アプリケーション定義またはオブジェクト定義のエラーです。>
となっています。
線の幅だけではなく、
.Format.Line.ForeColor.RGB = RGB(253, 153, 153)
でもエラーになります。
.Format.Lineはバージョンで、記述方法に違いがあるのでしょうか？
VBA初心者なのですが、VBAでエクセルブックを開くとVBAの処理が終わってしまいます。理由がわからないのでアドバイスをお願いします。なお、止まってしまう箇所にコメントを入れプログラムを下記しました。また、4000字以上質問できないためプログラムの途中までしか書かれていません。そのため、余分な宣言が多数ありますが無視してください。よろしくお願いいたします。
Option Base 1
Sub 健康診断の郵送()
Dim kyoNum() As String
Dim b_name As String
Dim a_name() As Variant
Dim b_address As String
Dim a_address() As Variant
Dim mailNum() As Variant
Dim place() As String
Dim banchi() As String
Dim ken() As String
Dim Adr As String
Dim AdrLen As Integer
Dim i, j, k, cnt, l, m As Integer
Dim ChrCode As Integer
Dim cell As Range
Dim Book1 As String
Dim wb As Workbook
Dim Book1_Path As String
Dim flag As Boolean
'セルのクリア
ThisWorkbook.ActiveSheet.Cells.ClearComments
'セルのプロパティを設定をする
With ThisWorkbook.ActiveSheet.Columns("A:B")
.ShrinkToFit = True
.NumberFormatLocal = "@"
.ColumnWidth = 45
End With
'カレントディレクトリのチェンジ(Windows2000以降)
CreateObject("WScript.Shell").CurrentDirectory = ThisWorkbook.Path
'簡易名称Book1にする
Book1 = "Book1.xlsx"
'パスを取得する
Book1_Path = ThisWorkbook.Path & "\" & Book1
If Dir(Book1_Path) = "" Then
MsgBox "Book1.xlsxファイルが存在しません。", vbExclamation
End If
'同名ブックのチェック
For Each wb In Workbooks
If wb.Name = Book1 Then
MsgBox "健康診断の郵送.xlsmはBook1を開こうとしています" _
& vbCrLf & "Book1を閉じて再実行してください", vbExclamation
Exit Sub
End If
Next wb
Application.ScreenUpdating = False
'画面の更新を止める
Workbooks.Open Book1_Path '＊＊＊＊＊←ここで処理が終わってしまう＊＊＊＊＊
'ブック名を指定して非表示
Application.Windows("Book1.xlsx").Visible = False
'後方検索でBook1.xlsxの入力済みセルの行数と列数を取得
With Workbooks("Book1.xlsx").ActiveSheet.UsedRange
Book1_MaxRow = .Find("*", , xlValues, , xlByRows, xlPrevious).Row - 2 'データ入力済み行数取得
End With
Application.ScreenUpdating = True
Workbooks("Book1.xlsx").Activate
j = 1
ReDim kyoNum(Book1_MaxRow)
ReDim a_name(Book1_MaxRow)
ReDim a_address(Book1_MaxRow)
ReDim mailNum(Book1_MaxRow)
ReDim ken(Book1_MaxRow)
ReDim place(Book1_MaxRow)
ReDim banchi(Book1_MaxRow)
