メソッドの作成方法に関して不明な点がありますので教えてください。
次の例はExcel VBAで作成したものです。
---- Class Point ----
Public x As Integer, y As Integer
---- Class Line ----
Public FromPoint As Point, ToPoint As Point
Sub Clear()
Set FromPoint = New Point
ToPoint.x = 0
ToPoint.y = 0
End Sub
---- テスト用プログラム ----
Sub test()
Dim a As New Point, b As New Point, c As New Line
a.x = 1
a.y = 2
b.x = 3
b.y = 4
Set c.FromPoint = a
Set c.ToPoint = b
c.Clear
End Sub
--------
以上のプログラムにおいて test を実行すると c.Clear を実行したとき a の内容は変化しませんが b の内容は変化してしまいます。
これは Clearメソッドにおいて FromPoint のように新しいオブジェクトで設定するか、ToPoint のようにオブジェクトはそのままで内容を変更するかの違いです。
メソッドの作り方としてはどちらの方法を採用すべきでしょうか。
Class を使う側からすれば、各Classごとに副作用が異なるのは困るので同じ基準でメソッドを作りたいのですが。
一般的にはメソッドを実行するたびに新しいオブジェクトを作るわけではないので(上記の例でいえば Clearメソッドで新しい Lineオブジェクトを作成するわけではない)下位レベルのオブジェクトについても新たにオブジェクトを作らないほうが考え方が統一されてよいとは思いますが。
しかし、下位レベルのオブジェクトを Nothing にする場合などはどうしても動作が異なってしまうので、どうすべきか混乱しています。
VBAでコレクションの要素を一括削除する方法として、下記のコードが掲載されていましたが
Nothingを代入しないままNewを使用しても問題ないでしょうか。
また、この辺りの挙動について詳しく書かれているサイトがありましたら、ご教示頂ければ幸いです。
Dim fruits As Collection
Set fruits = New Collection
With fruits
Call .Add("バナナ")
Call .Add("リンゴ")
Call .Add("ミカン")
End With
Set fruits = New Collection
ExcelVBAマクロでの文字コード出力について確認させてください。 ExcelでA列から行方向に漢字、記号（環境依存文字も含む）のデータが１文字ずつ入力されてあります。これをExcelVBAマクロにより、B列にShift_JISの文字コード、C列にJIS X 0213の文字コードに変換して表示することは可能でしょうか。
例えばIMEパッドで「亜」の文字コードはShift_JISでは"889F"、JIS X 0213では"1-16-1"ですがこの文字コードをB列、C列にそれぞれ表示させたいです。
またその他のいい方法があればご教授いただけますでしょうか。
以上、よろしくお願いいたします。
マイクロソフトオフィス2010EXCELマクロについて質問させてください。
VBAマクロでマウス右クリック時にポップアップメニューを出し、
自作マクロを呼び出すようにしました。動作している。
このマクロを別PCのオフィス2013で動作させると、
マクロ内部ではポップアップメニューを作成動作している
ようです（デバッグで通っていること確認）ようですが、
EXCEL画面上にはメニューが表示されません。
サンプルマクロは下記参照。
非互換または設定漏れがあるのでしょうか？
サンプルマクロ
Sheet1
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Application.CommandBars("Cell").Reset '右クリックメニューを初期設定に戻す
Call set_RightMenu '右メニュー登録
End Sub
Module1
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub reset_RightMenu()
'
'右クリックメニューを初期化
'
Application.CommandBars("Cell").Reset
End Sub
Public Sub set_RightMenu()
'
' 右クリックメニューを設定する
'
Call reset_RightMenu '右クリックメニュー初期化
With Application.CommandBars("Cell") _
.Controls.Add()
.BeginGroup = True
.Caption = "menu0"
.FaceId = 682
.OnAction = "menu0"
End With
With Application.CommandBars("Cell") _
.Controls.Add(Type:=msoControlPopup)
.BeginGroup = True
.Caption = "SubMenu"
With .Controls.Add(Type:=msoControlButton)
.Caption = "menu1"
.FaceId = 931
.OnAction = "menu1"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "menu2"
.FaceId = 931
.OnAction = "menu2"
End With
End With
End Sub
Sub menu0
MsgBox "****** Menu 0 *******"
End Sub
Sub menu1
MsgBox "****** Menu 1 *******"
End Sub
Sub menu2
MsgBox "****** Menu 2 *******"
End Sub
マイクロソフトオフィス2010EXCELマクロについて質問させてください。
VBAマクロでマウス右クリック時にポップアップメニューを出し、
自作マクロを呼び出すようにしました。動作している。
このマクロを別PCのオフィス2013で動作させると、
マクロ内部ではポップアップメニューを作成動作している
ようです（デバッグで通っていること確認）ようですが、
EXCEL画面上にはメニューが表示されません。
サンプルマクロは下記参照。
非互換または設定漏れがあるのでしょうか？
サンプルマクロ
Sheet1
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Application.CommandBars("Cell").Reset '右クリックメニューを初期設定に戻す
Call set_RightMenu '右メニュー登録
End Sub
Module1
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub reset_RightMenu()
'
'右クリックメニューを初期化
'
Application.CommandBars("Cell").Reset
End Sub
Public Sub set_RightMenu()
'
' 右クリックメニューを設定する
'
Call reset_RightMenu '右クリックメニュー初期化
With Application.CommandBars("Cell") _
.Controls.Add()
.BeginGroup = True
.Caption = "menu0"
.FaceId = 682
.OnAction = "menu0"
End With
With Application.CommandBars("Cell") _
.Controls.Add(Type:=msoControlPopup)
.BeginGroup = True
.Caption = "SubMenu"
With .Controls.Add(Type:=msoControlButton)
.Caption = "menu1"
.FaceId = 931
.OnAction = "menu1"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "menu2"
.FaceId = 931
.OnAction = "menu2"
End With
End With
End Sub
Sub menu0
MsgBox "****** Menu 0 *******"
End Sub
Sub menu1
MsgBox "****** Menu 1 *******"
End Sub
Sub menu2
MsgBox "****** Menu 2 *******"
End Sub
VBA勉強中です。
フォルダにある複数のファイル（１ファイル内には複数シートあります）を順番に開けて検索をかけ、条件に合致した行をあるファイルへ転記・集約させるマクロを組みたいと思っています。
（条件は1番左の列が「○」であることです。）
ネットや本を参考にしながら組んでみたのですが、「○」がない（シートの）行も転記されてしまい困っています。
（○があるシートは複数シートの内、１シートのみなのですが、○がないシートからも
「○があるシートの○がある行」と同じ行番号の行がが転記されているようです）
組んでみたマクロは以下のとおりです。
------------------------------------------------
Sub 楕円1_Click()
ActiveSheet.Range("A2:H30").ClearContents
Dim ans, fn, wb, x, i, n, sh, myPath
ans = "○" '条件
myPath = ThisWorkbook.Path & "\"
fn = Dir(myPath & "*.xls") '選択したフォルダ内のExcelファイル
Do Until fn = ""
If fn <> ThisWorkbook.Name Then 'ファイルが当ファイル以外なら
Set wb = Workbooks.Open(myPath & fn) '選択したファイルを開きます
For Each sh In wb.Worksheets '各シートごとに
x = sh.Cells(Rows.Count, 1).End(xlUp).Row '最終行取得
For i = 1 To x '1行目から最終行まで以下を実行します
If Cells(i, 1) = ans Then '条件に合致するか検索
n = n + 1
With ThisWorkbook.Sheets("Sheet1") '転記
.Cells(n + 1, 1) = sh.Cells(i, "B")
.Cells(n + 1, 2) = sh.Cells(i, "C")
.Cells(n + 1, 3) = sh.Cells(i, "D")
.Cells(n + 1, 4) = sh.Cells(i, "E")
.Cells(n + 1, 5) = sh.Cells(i, "F")
End With
End If
Next i
Next sh
wb.Close (False) '選択したファイルを閉じる
End If
fn = Dir() '次のファイルを検索
Set wb = Nothing
Loop '繰り返し
---------------------------------------------------------
このマクロでは各ファイルの全てのシートを検索していると思うのですが、
全シートを検索していることが問題でしょうか？
検索したいデータは特定のシートにのみ存在するので（全ファイル同じ名前のシートです）
特定のシートのみ検索してくれればそれで良いのですがどう変更すればよいかわかりません。
「For Each sh In wb.Worksheets '各シートごとに」 色々と調べてここを変更してみたのですが
何れもエラーとなり上手くいきませんでした。
どなたか上手く直す方法を教えて下さい。
宜しくお願いします。
