EXCEL2003で使っていたファイルを2010で開いたらコードが反応しなくなりました。
直す方法を教えてください。
具体的にはあるセルに入力すると別シートの「申請書」を印刷するというコードを入れています。
Private Sub worksheet_change(ByVal Target As Excel.Range)
Dim h As Range
Set h = Application.Intersect(Target, Range("AA15:AA45"))
If h Is Nothing Then Exit Sub
If h.Cells(1) = "" Then Exit Sub
If MsgBox("申請書印刷しますか？", vbOKCancel) <> vbOK Then Exit Sub
Worksheets("申請書").PrintOut
End Sub
よろしくお願いいたします。
EXCEL2003で使っていたファイルを2010で開いたらコードが反応しなくなりました。
直す方法を教えてください。
具体的にはあるセルに入力すると別シートの「申請書」を印刷するというコードを入れています。
Private Sub worksheet_change(ByVal Target As Excel.Range)
Dim h As Range
Set h = Application.Intersect(Target, Range("AA15:AA45"))
If h Is Nothing Then Exit Sub
If h.Cells(1) = "" Then Exit Sub
If MsgBox("申請書印刷しますか？", vbOKCancel) <> vbOK Then Exit Sub
Worksheets("申請書").PrintOut
End Sub
よろしくお願いいたします。
EXCEL2003で使っていたファイルを2010で開いたらコードが反応しなくなりました。
直す方法を教えてください。
具体的にはあるセルに入力すると別シートの「申請書」を印刷するというコードを入れています。
Private Sub worksheet_change(ByVal Target As Excel.Range)
Dim h As Range
Set h = Application.Intersect(Target, Range("AA15:AA45"))
If h Is Nothing Then Exit Sub
If h.Cells(1) = "" Then Exit Sub
If MsgBox("申請書印刷しますか？", vbOKCancel) <> vbOK Then Exit Sub
Worksheets("申請書").PrintOut
End Sub
よろしくお願いいたします。
こんにちは。
タイトルの件で、投稿いたします。
【現状】
・EXCEL20007を使用しています。
・シート構成は、カテゴリ選択シート、メニューシート、その他20シート程度。
---
現在マクロを使用して、ある機能を実装しています。
【機能】
カテゴリシートでカテゴリを選択し、メニューシートへ遷移します。
この遷移時に、カテゴリ名をその他20シートのオートシェイプに反映させた状態で、
メニューシートを表示したいのです。
以下のマクロでそれは実現しました。
しかし、20シート中数シートで、オートシェイプのテキストが更新されていない場合がありました。
この場合、「カテゴリ名表示」のオートシェイプをクリックすることにより、
オートシェイプのテキストが更新されます。
なぜ、クリックしないと更新されないのでしょうか。
以下のマクロでのテキスト代入後、再度オートシェイプをselectするようにするなど、
そういった1文を追加してみたりしましたが、変化はありませんでした。
'==================================================================
'== '各シートのオートシェイプ「カテゴリ名表示」にカテゴリ名をセット
'==================================================================
カテゴリ名 = カテゴリシート..Range("A1").Value
For Each sht In Worksheets
If sht.Visible = True Then
sht.Activate
For Each objShp In ActiveSheet.Shapes
'カテゴリ名表示というオートシェイプがあるかチェック
If objShp.Name = "カテゴリ名表示" Then
'存在すれば、カテゴリ名をセット
sht.Shapes("カテゴリ名表示").Select
Selection.Characters.Text = カテゴリ名
End If
Next
End If
Next
'==================================================================
以上、原因をご存じの方や思い当たる節がある方、どうかご教示ください。
わかりにくい部分などがありましたら、ご指摘いただければ追記させていただきます。
よろしくお願いいたします。
こんにちは。
タイトルの件で、投稿いたします。
【現状】
・EXCEL20007を使用しています。
・シート構成は、カテゴリ選択シート、メニューシート、その他20シート程度。
---
現在マクロを使用して、ある機能を実装しています。
【機能】
カテゴリシートでカテゴリを選択し、メニューシートへ遷移します。
この遷移時に、カテゴリ名をその他20シートのオートシェイプに反映させた状態で、
メニューシートを表示したいのです。
以下のマクロでそれは実現しました。
しかし、20シート中数シートで、オートシェイプのテキストが更新されていない場合がありました。
この場合、「カテゴリ名表示」のオートシェイプをクリックすることにより、
オートシェイプのテキストが更新されます。
なぜ、クリックしないと更新されないのでしょうか。
以下のマクロでのテキスト代入後、再度オートシェイプをselectするようにするなど、
そういった1文を追加してみたりしましたが、変化はありませんでした。
'==================================================================
'== '各シートのオートシェイプ「カテゴリ名表示」にカテゴリ名をセット
'==================================================================
カテゴリ名 = カテゴリシート..Range("A1").Value
For Each sht In Worksheets
If sht.Visible = True Then
sht.Activate
For Each objShp In ActiveSheet.Shapes
'カテゴリ名表示というオートシェイプがあるかチェック
If objShp.Name = "カテゴリ名表示" Then
'存在すれば、カテゴリ名をセット
sht.Shapes("カテゴリ名表示").Select
Selection.Characters.Text = カテゴリ名
End If
Next
End If
Next
'==================================================================
以上、原因をご存じの方や思い当たる節がある方、どうかご教示ください。
わかりにくい部分などがありましたら、ご指摘いただければ追記させていただきます。
よろしくお願いいたします。
VBAにおけるユーザーフォームの件
今，下記の様なプログラムを組んでいるのですが，「myComboBox」に入った？値をこの後で使用したいのですが，
どうすればいいのかわからなくて困っています．
これで何がしたいかというと，ある個数分のコンボボックスを自動で作成して使用しようとしているのです．
Private Sub UserForm_Initialize()
Dim a As String
Dim jj As Long
Dim s As Integer
Dim myComboBox As Control
N = InputBox("抜き出したいデータ数は？")
EffectiveRow = Range("A65536").End(xlUp).Row
Effectivecolumn = Cells(2, 16384).End(xlToLeft).Column
For s = 1 To N
Set myComboBox = Me.Controls.Add("Forms.ComboBox.1")
With myComboBox
.Height = 20
.Width = 150
.Left = 120
.Top = (s - 1) * .Height + 10
End With
For jj = 1 To Effectivecolumn
myComboBox.AddItem Worksheets(1).Cells(1, jj).Value
Next jj
a = myComboBox.Value
Worksheets(2).Cells(1, 1) = a
Next s
End Sub
VBAにおけるユーザーフォームの件
今，下記の様なプログラムを組んでいるのですが，「myComboBox」に入った？値をこの後で使用したいのですが，
どうすればいいのかわからなくて困っています．
これで何がしたいかというと，ある個数分のコンボボックスを自動で作成して使用しようとしているのです．
Private Sub UserForm_Initialize()
Dim a As String
Dim jj As Long
Dim s As Integer
Dim myComboBox As Control
N = InputBox("抜き出したいデータ数は？")
EffectiveRow = Range("A65536").End(xlUp).Row
Effectivecolumn = Cells(2, 16384).End(xlToLeft).Column
For s = 1 To N
Set myComboBox = Me.Controls.Add("Forms.ComboBox.1")
With myComboBox
.Height = 20
.Width = 150
.Left = 120
.Top = (s - 1) * .Height + 10
End With
For jj = 1 To Effectivecolumn
myComboBox.AddItem Worksheets(1).Cells(1, jj).Value
Next jj
a = myComboBox.Value
Worksheets(2).Cells(1, 1) = a
Next s
End Sub
当方、ＶＢＡ初心者です、よろしくお願いいたします。
EXEL2000で動作していたVBAマクロが2003では動作、2007、2010では
以下のエラーが発生して動作しません。
「実行時エラー1004、アプリケーション定義またはオブジェクト定義のエラーです」
マクロ自体はワークシートにグラフを書くものです。
Dim cho As ChartObject, rng As Range
エラー箇所の記述は以下の部分です。
Set cho = ws.ChartObjects.Add( _
ws.Range("B4").Left, _
ws.Range("B4").Top, _
ws.Range("B4:AB4").Width, _
ws.Range("B4:B13").Height)
バージョンアップの仕様変更で記述が変わったと言うことでしょうか？
そうだとしたらあわせて何がどう変わったのか、解説されてるサイトとか
ご存じでしたらお知らせください。
以上よろしくご教授のほどお願いいたします。
当方、ＶＢＡ初心者です、よろしくお願いいたします。
EXEL2000で動作していたVBAマクロが2003では動作、2007、2010では
以下のエラーが発生して動作しません。
「実行時エラー1004、アプリケーション定義またはオブジェクト定義のエラーです」
マクロ自体はワークシートにグラフを書くものです。
Dim cho As ChartObject, rng As Range
エラー箇所の記述は以下の部分です。
Set cho = ws.ChartObjects.Add( _
ws.Range("B4").Left, _
ws.Range("B4").Top, _
ws.Range("B4:AB4").Width, _
ws.Range("B4:B13").Height)
バージョンアップの仕様変更で記述が変わったと言うことでしょうか？
そうだとしたらあわせて何がどう変わったのか、解説されてるサイトとか
ご存じでしたらお知らせください。
以上よろしくご教授のほどお願いいたします。
