Excel VBA 質問スレ Part49©2ch.net

2017/06/26(月) 02:15:14.60

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part48
http://mevius.2ch.net/test/read.cgi/tech/1494890685/

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 126
https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured

2017/07/03(月) 18:37:30.90

>>84
2007だけど、ActiveSheet.UsedRangeの範囲外のセルだとエラーになるっぽい。

2017/07/03(月) 20:07:31.53

ここの板で質問するレベルでExcelになすりつけるのは100000年ほど早い
まぁそう言いたくなるときもあるんだがw

2017/07/03(月) 20:26:22.35

それ範囲指定できるんだっけ？

2017/07/03(月) 20:33:45.35

例えば、
そのセルの値が0より大きければセルA1をコピーし、そのセルに書式を貼り付け、
そのセルの値が0より小さければセルA2のコピーし、そのセルに書式を貼り付ける。

この程度の処理を数百のセルに行うのに結構な時間がかかる。
短時間で完了させるにはどうしたらいいんでしょうか？
ある程度のセル範囲ごとにまとめて書式貼り付けすればいいんでしょうか？

2017/07/03(月) 20:38:08.97

>>89
正確な日本語でよろしく

2017/07/03(月) 20:39:25.48

Sub nisinsu()
Dim Z As Single, S As Long, N As String, A As String
Z = 100
S = 1
Do Until Z <= 0
N = Z Mod 2
Cells(S, 1) = Z
Cells(S, 2) = N
Z = Z \ 2
S = S + 1
A = N + A
Loop
Cells(1, 3) = A
End Sub

上の方で２進数について質問したものです
このコードである程度無事に解決しましたが、一つ分らないことがあります
Loop を抜けた後の Cells(1, 3) = A の所は Loopの一つ上の A = N + A によって 1100100 と正しい数字が表示されます
しかしこの A = の中を A = A + N というように A と N を逆にすると 10011 と全く別の数字になってしまいます
この理由がどうしてなのかを教えてください

2017/07/03(月) 20:39:42.65

>>89
性格悪い日本語でよろしく

2017/07/03(月) 20:45:47.19

>>91
まずはおめでとう！

質問についての回答は単純に逆転してるだけだよ
1100100となるところが0010011となってしまいそのまま表示させたら頭の0が消えたって感じ

2017/07/03(月) 20:54:20.38

>>89
あー読み取れた
VBA使うまでもなく条件付書式使えば終わり

2017/07/03(月) 21:15:28.35

>>89
多分これでOK

Application.ScreenUpdating = False
処理
Application.ScreenUpdating = True

2017/07/03(月) 21:15:43.91

>>89です
>>90>>92>>94
わかりにくかったですか、すいません。かなり酔ってます。

一日200行ぐらい増えるブックがあります。列数は50ぐらいです。
一ヶ月で6000行ぐらいでしょうか。あらかじめ条件付き書式を設定していましたが、
なんかブックを開くときに重くて、きっと条件付き書式が原因だろうと思い、
条件付き書式ではなく、VBAで各セルの値に応じて書式を固定しようと思ったわけです
でも、そのVBAが時間がかかって困ってるわけです。
書式のコピペって時間かかるんですね。
もっと書式のコピペを早くできる方法はないのかなって思ったわけですわ。

2017/07/03(月) 21:28:10.61

>>96
書式コピペするんじゃなくて、直接指定したらまだ速くなると思うよ
クリップボードを介する処理はとても時間がかかる

2017/07/03(月) 21:40:24.58

>>96
こんな単純な条件ひとつだけで重くなるわけがない
問題は別にあるよ

2017/07/03(月) 21:49:40.34

>>96
条件付き書式が断片化してない？断片化ってのは勝手に作った言葉だけど・・・
例えば、A:Aに条件付き書式（=a1=1）を設定して、10行目を切り取って11行目に挿入したりすると
条件=A1=1
=$A$1:$A$10,$A$12:$A$1048576

条件=A11=1
=$A$11

のように分割される
一度条件付き書式の書式ルールの管理、「このワークシート」を見てみたほうがいいかも

2017/07/03(月) 21:55:55.71

そのセルにちゃんとワークシート名付けてる？

2017/07/03(月) 22:20:14.51

>>97
明日試してみます。
>>98
そうですか。試行錯誤してみます・・・
>>99
レスの内容が難しいです。えっと、ちょっと考えさせてください。
>>100
つけてるはずです。

2017/07/03(月) 22:23:39.09

今のコードはこんな感じです。

Public Sub シートの書式を設定する()
Dim iRow As Long, iCol As Long, LastRow As Long, ws As Worksheet, r As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
Set ws = ThisWorkbook.Worksheets("対象シート")
startRow = 4
LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row
For iRow = startRow To LastRow
For iCol = 4 To 100
Set r = ws.Cells(iRow, iCol)
If IsNumeric(r.Value) Then
If r.Value > 0 Then
r.Select
ws.Cells(1, "C").Copy
r.PasteSpecial Paste:=xlPasteFormats
DoEvents
ElseIf r.Value < 0 Then
r.Select
ws.Cells(2, "C").Copy
r.PasteSpecial Paste:=xlPasteFormats
DoEvents
End If
End If
Next iCol
Next iRow
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

2017/07/03(月) 22:28:05.66

>>96
>なんかブックを開くときに重くて

例えば、知らない間に、図形が1万個くらいに増殖しているとか。
いや、マジで。

2017/07/03(月) 22:41:18.92

なんでいちいちdoeventsしてんの？

2017/07/03(月) 22:43:07.60

あ～万個増殖ね～ありがちだわ～

2017/07/03(月) 22:46:45.91

>>104
あー、DoEventsuはマクロ実行終わるまで時間かかるんでEscでマクロ止めてた時の名残です。
今は必要ありません。消し忘れてました。

2017/07/03(月) 23:22:39.55

>>91
すみません…
まだ勉強し始めたばかりで何故入れ替えただけで逆に表示されるのかが分かりません
理由を教えて下さりますと幸いです

2017/07/03(月) 23:23:15.28

ん～
まずはループが最終的に何回転してるのか見てみた方が良さそう

自分ならまず新しいファイルにコードをコピペしてゴミ掃除するが

2017/07/03(月) 23:58:29.09

>>107
コレを動かしてみたらわかるよ

Sub nisinsu()
Dim Z As Single, S As Long, N As String, A As String
Dim AA As Single
Z = 100
S = 1
Do Until Z <= 0
N = Z Mod 2
Cells(S, 1) = Z
Cells(S, 2) = N
Z = Z \ 2
A = N + A
Cells(S, 4) = A
AA = AA + N
Cells(S, 5) = AA
S = S + 1
Loop
Cells(1, 3) = A
End Sub

2017/07/04(火) 00:10:14.68

>>102
<0と>0をUnionでまとめてからコピペしたら速くなりそう。
ただUnionのセル数が増えすぎるとUnion自体が遅くなるみたいなので、1～数十行くらいで区切ったほうがいいかも？

まあ>>97のほうが速い気はするけど。

2017/07/04(火) 05:36:03.11

これって今何行あるの？
何万行もあって列数50あれば大分重くなると思うけど

2017/07/04(火) 06:53:55.04

6000回もselectとcopyしてりゃ遅くなるの当たり前

2017/07/04(火) 08:12:48.47

田のクラッカー

2017/07/04(火) 10:15:18.62

セレクトなくしたら2/3ぐらいにはなりそうだな
まあどう考えてもコピペはロスがでかい
指定する書式はマクロの記録か大抵ググりゃ出てくるから調べんさい

2017/07/04(火) 20:20:52.61

>>89>>102です。

>>103 図形のオブジェクトはありませんでした。でも変なオブジェクトが多量に残っていたという経験は過去にありました。確認してみます。
>>110 Unionでまとめて処理ですか。試してみます。>>97と比較してみます。
>>111 実際の行は数千行ありますが、実際には最終行から200行しか処理してません｡後出しになりますが>>102ではその部分を省きました。ごちゃごちゃするかなと思い・・・

2017/07/04(火) 20:21:31.96

>>89>>102です。

>>112 直接書式を設定したほうがよさそうですね
>>114 >>97を試してみます

みなさまありがとうございました。土日に試してみます。諸事情で今は試せないので。

2017/07/04(火) 23:04:48.45

>>116
頑張ってベターな方法探してね！

2017/07/05(水) 00:29:10.07

ベタな方法を探す？

2017/07/05(水) 10:23:55.19

ダブルクリックとシングルクリックを区別する処理を考えましたがあまり
美しくないです。もっとスマートな方法はありますか?
VDim isDoubleClick As Boolean
Dim cancelClick As Boolean
Private Sub CommandButton1_Click()
____Dim i As Long
____For i = 0 To 2048
________DoEvents
________If isDoubleClick = True Then
____________Exit Sub
________End If
____Next i
____If (cancelClick = False) Then
________' シングルクリック時の処理はここ
________Worksheets(1).Range("a1").Value = "シングルクリック"
____End If
____cancelClick = False
End Sub
Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
____isDoubleClick = True
____' ダブルクリック時の処理はここ
____Worksheets(1).Range("a1").Value = "ダブルクリック"
____isDoubleClick = False
____cancelClick = True
End Sub
Private Sub UserForm_Initialize()
____isDoubleClick = False
____cancelClick = False
End Sub

2017/07/05(水) 11:03:35.66

>>119
vba　クラス　コントロール　イベント
とかでググれば

**デフォルトの名無しさん** (JP 0H16-CicO) · 2017/07/05(水) 13:18:10.58

>>119
内容と全然関係ないけど、全角スペースでインデントすれば削除されないよ

2017/07/05(水) 16:49:43.67

>>120
ありがとうございます。質問そのものについてはタイマー張ることで実現
できることがわかりました。
また、イベントハンドラをまとめる方法もついでに知ったので助かりました！
>>121
次からそうします。ありがとうございます。

2017/07/05(水) 22:43:43.51

セルの値を配列に入れる時、
セルが1つだけだと、一次元配列になっちゃうってひどくね。

2017/07/05(水) 22:47:37.84

次元数が変化するとめんどくさい時は、常に同じ次元数になるようにfunctionを噛ませる

2017/07/05(水) 22:49:15.43

セルが2つだと二次元配列になっちゃうよ

2017/07/05(水) 23:46:14.85

DAOとADOの使い分けを教えて！

2017/07/06(木) 00:36:18.68

使い分けというかADOはDAOに比べて何かと便利だからADOだけ使えばいいんじゃないかな。
AccessだとデフォがDAOなんで使う事も多いけどエクセルで使うときのメリットは特に思い浮かばない。

2017/07/06(木) 00:50:14.75

>>127
回答ありがとう。今はMySQLに接続しようとしているのでADOを選びます。
まだVBA始めて4日目なのでわからないことばかりですが

2017/07/06(木) 02:37:48.69

>>123
Resizeで1行追加して、配列を1行減らせばいいんじゃないかと思った。

2017/07/07(金) 06:50:33.44

すいません
パソコンのエクセル2016で作ったVBAをスマホで動かすことはできますか?
スマホでVBAの作成編集は無理のようなので

2017/07/07(金) 07:44:52.11

>>130
むしろ教えてもらいたい

2017/07/07(金) 08:54:05.14

関数でがんばれ

2017/07/07(金) 21:24:02.96

>>130
基本的に無理じゃね。
スマホ側OfficeがVBAサポ―トしてないと。
その上でWin32API使用してたら、更に無理だし。

2017/07/07(金) 21:25:43.56

ノートでも画面狭く感じるのにスマホでなんてストイック過ぎる

2017/07/07(金) 22:19:46.83

アリエッティだから…

2017/07/07(金) 23:07:11.35

ネゴシックスだから…

2017/07/07(金) 23:13:49.66

vbaってエクセル用の言語？
他にも使えるの？

2017/07/07(金) 23:24:32.16

アクセスやワードでも使えるよ
アクセスvbaはたまによく使う。SQL覚えたほうがいいけど
ワードはワード自体使わん

2017/07/07(金) 23:41:29.01

初歩的な質問で、すみません。

vbaの公式本で独学で勉強中なのですが、
なぜこうなるのかわかりません。
よければ教えてほしいです。

不明点：

①なぜnumがセルa1～a3だと認識されるのか。
b1～b3も記述しているので、b1～b3と認識されないのはなぜか。

②こういうもんだと言われればそれまでなのですが、
ほかにもnum以外に自動認識されるような用語はあるのでしょうか。

Sub sampel()

　Range("b1") = percent(Range("a1"))
　Range("b2") = percent(Range("a2"))
　Range("b3") = percent(Range("a3"))

End Sub

Function percent(num) As String

　percent = num / 100 & "%"

End Function

2017/07/07(金) 23:52:29.75

関数　percent(num) で呼び出しもとで
引数　numに　Range("a1")　をセット（厳密には違うか）してるから

って釣りだよな

2017/07/07(金) 23:55:59.29

>>139
残念ながらかなり根本的な事がわかっていない

function～はユーザー定義関数っつって、処理をひとまとめにしたもの

numってのは変数名。これは自分で決めるもので、
「num」でも「namu」でも「ナンバー」でもなんでもいい。
「sub」「if」みたいな単語は予約語と言ってそれらは使えないんだけど、まぁ何となく分かるだろう

毎回'こう書くのがめんどくさいから
Range("b1") = Range("a1") / 100 & "%"
'functionを定義して、使い回しできるようにしているだけの話
Range("b1") = percent(Range("a1"))

function作るのめんどくさくね？
と思ったかもしれないけど、それは何もわかっていないだけ
素直にこういうもんだと覚えてくれ

2017/07/07(金) 23:57:08.34

すみません。意味が分かりました。

2017/07/07(金) 23:58:31.41

>num以外に自動認識されるような用語

自動認識されるような用語って何？初めて聞いた

2017/07/08(土) 00:00:19.52

>>142
良かった、頑張ってねぇ～

2017/07/08(土) 00:06:47.50

>>143
AレジスタとかBレジスタとかと想像してみる

>>142 ほ、ほんとに初心者だったのかスマン

2017/07/08(土) 00:07:48.82

>>143
多分だが、引数を理解できてなくて
numに勝手にマッピングされてる、みたいに思ったんじゃないか
なんか勉強の順番おかしいんじゃない？
もっと前のフェーズでの学習が抜け落ちたまま次進んでる気がする

2017/07/08(土) 00:09:10.26

>>145
いやいや、いきなりアセンブラは無いだろとw

2017/07/08(土) 00:11:00.51

>>146
俺もそう感じた
ただ学習の本やサイトも「おまじない」とかアホなことぬかすからわけがわからなくなるんだと思う

2017/07/08(土) 01:17:01.28

俺何年もVBAつかってるけどオプションイクスプリシットとか読めないわ書けるけど
ただのおまじないだしないいよな別に

2017/07/08(土) 04:13:51.39

Private Sub Worksheet_Calculate()

If Worksheets("sheet1").Cells(3, 20) > 4000 Then

Worksheets("sheet1").Range("V4:AP4").Insert

End If

end sub

インサートがめっちゃ繰り返される。どうして？

2017/07/08(土) 08:57:15.58

>>150
ifが永遠にtrueになるからではないか
セル挿入→再計算→ifがtrue→セル挿入→再計算→ifが（略
Worksheets("sheet1").Cells(3, 20) がいつ4000以上になるのか
本当になるのかチェック

2017/07/08(土) 09:26:58.00

>>150
Application.EnableEvents = False
で、eventを止める
そうしないと
＞セル挿入→再計算→Worksheet_Calculate→ifがtrue→セル挿入→再計算→Worksheet_Calculate→ifが（略
が起こる

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If Worksheets("sheet1").Cells(3, 20) > 4000 Then
Worksheets("sheet1").Range("V4:AP4").Insert
endif
Application.EnableEvents = True
End Sub

2017/07/08(土) 13:34:02.80

>>151,>>152
的確な指示ありがとう！！(笑)
すごいなここの人は

2017/07/08(土) 16:53:25.86

>>149
別にいいよ、モジュールの一番上にそれを書くのを忘れなければ

2017/07/08(土) 17:53:16.70

モジュールの一番上に書くのは153でしょ

'2ちゃんねるの神様に教えてもらったコードです
'神様ありがとうございます
Option Explicit
Sub foo()
～

2017/07/09(日) 00:06:53.03

こんばんは。
困ってます。

先日作成したマクロが動かなくなりました。
作成した日は動きました。
（特定のフォルダをコピーしてリネームするだけの動きです。）
プログラムを手動で実行したときは問題なく動くので、
プログラムの問題ではなさそうなのですが。

エクセルのセキュリティは、「警告を表示してすべてのマクロを無効にする」
にしています。
エクセルの再起動・ＰＣ再起動は試しましたが、だめでした。

C:\...Local\Temp\Excel8.0のMSForms.exdも消してみたりしましたがダメでした。

原因は何でしょうか・・・？

2017/07/09(日) 00:08:43.90

スペック全然書いてなかった。

Windows8.1
Excel2013　です。

2017/07/09(日) 00:14:34.37

すみません。
書き込んですぐに自己解決しました。

コマンドボタンのオブジェクト名が違ってた・・・。

2017/07/09(日) 03:04:28.53

>>158
良いんだけどさ、最低限デバッグ出来るようになってくれ。

2017/07/09(日) 10:34:39.10

まあ、解決したことを書いてくれたのはよかった

2017/07/09(日) 12:02:55.24

デバッグ始めにtypoを疑って問題ないと確認して、
さんざん調べてやっぱりtypoの時の脱力感

2017/07/09(日) 12:34:26.09

optionexplititをつけよう（typo）

2017/07/09(日) 13:33:12.66

>>161
他人のtypoはすぐにわかるのになぜかわからない自分のtypo

2017/07/09(日) 19:05:53.04

初心者的な内容ですいません。
よければ教えてください。

1はなぜactivesheetでなくshが回答となるのでしょうか。
shがworksheetsとして定義されていないのになぜ、worksheetsとして考えられるのかわかりません。

---------

次のイベントプロシージャはブックに新しいシートを挿入したときに実行される。
挿入されたシートのシート名を、ユーザーがダイアログボックスから入力した名前に変更させたい。
このとき、【　１　】に入る適切な命令を解答欄に入力しなさい。
ただし、シート名の重複などのエラー処理は省略しているものとする。

Private Sub Workbook_NewSheet(ByVal Sh As Object)

Dim strSheetName As String
strSheetName = InputBox("新しいシートの名前を入力してください")

If strSheetName <> "" Then

【　1　】.Name = strSheetName

End If

End Sub

2017/07/09(日) 19:17:48.71

Sh As Objectって何だよ。
Sh As Worksheetじゃないのか。
問題に突っ込んでもしょうがないけど。

2017/07/09(日) 19:25:01.06

スタンダード公式ページの模擬問題３に書いてありました。

問題がおかしいのでしょうか？

2017/07/09(日) 19:29:29.32

>>164
新しくできたシートが引数Shで渡されている。
(ByVal Sh As Object)の部分。
Workbook_NewSheetのイベントプロシージャの仕様。
たいてい、どのイベントプロシージャも自分自身の参照を引数で渡されている。
ので、この場合、新しくできたシート自身を操作したければ
引数で渡ってきているShを操作すればよい。

2017/07/09(日) 19:33:19.71

挿入された新規シートが必ずActiveSheetだとは限らないんじゃない？
イベントプロシージャに新規シートが引数として渡されるのだから、それを使うのが確実

ちなみに問題が As Object なのは間違ってない
https://msdn.microsoft.com/ja-jp/library/office/ff821246.aspx?f=255&;MSPPError=-2147217396

2017/07/09(日) 19:35:24.63

こういう仕様があったんですね‼

ありがとうございます。
スタンダード合格出来るよう頑張ります。

2017/07/09(日) 19:42:48.30

worksheetでもいいだろ、と思ったらエラーになった
確かにobjectであって、worksheetではない
http://stamp-uploda.com/src/file7295.jpg
ってかこれ、一体なんなんだ？参照だろうけど、中身が全くないobjectが渡されてる。意味がわからない

2017/07/09(日) 19:44:44.18

ウォッチ式では
sh.name
はウォッチ式が不正です

イミディエイトウィンドウでは
?sh.name
Sheet4
とシート名が返ってくる

なんだこりゃ？？

2017/07/09(日) 19:56:26.06

>>171
ウォッチ式にsh.nameが指定されてる?
shじゃ無くて?

2017/07/09(日) 20:10:27.05

ためしに別の変数にShを突っ込んでみたら
中身が見られるようになった。

どっかで、オブジェクト変数は利用されるまで中身が入らないよ
みたいな話を聞いたような・・・。

2017/07/09(日) 20:17:33.00

>>172
試してみたら、ウォッチ式でもイミディエイトウィンドウでもsh.nameはうまく取れた。
ウォッチ式のshは取れない。
なんかバグの温床になりそうで、このshあんまり使いたくないなぁ…

環境はｗｉｎｄｏｗｓ7　エクセル2010

vbaコード
Private Sub Workbook_NewSheet(ByVal Sh As Object)
MsgBox 1 'ブレークポイントを設定している
End Sub

ウォッチ式に
sh
sh.name
を追加
shは図のとおり、変な状態になる。プロパティなどが表示されない
sh.nameはシート名が表示される

イミディエイトウィンドウは正常
?sh.name
Sheet5

http://stamp-uploda.com/src/file7296.jpg

>>173
プロパティ（sh.name）を呼び出してみた後の状態
（メッセージボックスにはsheeet6と正常に表示された）
やっぱりダメだった。
http://stamp-uploda.com/src/file7297.jpg

なんらかの理由でウォッチ式が正常に機能してないだけならいいけど、正常な状態でこれだとどういう状況なんだろう

2017/07/09(日) 20:42:05.40

>>174
Dim sheet as Worksheet
Set sheet = Sh

これをmsgboxの前に追加すると全部の変数がウォッチで見られると思う。

ググってみたらNewで作ったオブジェクトは初めて利用するまで空ですよ
らしいので、新シートのオブジェクトは内部的にNewで作成している？
Sh.nameが引けるのは何ででしょう？

2017/07/09(日) 20:43:00.97

それよりも改行しないコードかく人は何を考えてコード書いてるのか気になる

2017/07/09(日) 20:43:34.76

>>174
objectで受け取ってるからshのままでは何のクラスなのかわからないからどんなプロパティがあるかわからない

Nameプロパティを指定したら
Nameプロパティを持っているクラスとして解釈して
Nameプロパティの位置を文字列として表示しただけ

worksheetクラスのデフォルトプロパティがNameだからかな

countプロパティとかとして解釈させたら想定外の値になると予想

2017/07/09(日) 20:46:50.81

>>177
VBAマスター現る。
なっとく。

2017/07/09(日) 20:49:10.77

>>178
VBAだけじゃなくて他のプログラミング言語C言語とかと共通の考え方

メモリ確保とかキャストとか

2017/07/09(日) 20:54:20.52

>>164
1が実行されるまでの間にactivesheetが変わるかもしれないからactivesheetでは不正解だと思う

出来るだけactivesheetを使わない方が想定外の動作にならないと思う

2017/07/09(日) 20:55:59.71

てかお前らそんなに一か八かでactivesheet使ってんのかよw

2017/07/09(日) 21:19:51.98

これが通るけど、ウォッチ式には現れない
多分ウォッチ式の不具合だと思う
そう考えないと気持ち悪くて仕方ないし疲れてきた・・・

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Calculate
MsgBox Sh.Index
End Sub

http://stamp-uploda.com/src/file7299.jpg

>>175
sheetでもShでも見れるようになりました
Shの参照をコピーしたのでインスタンスが生成されたのかな

>>177
indexプロパティでも通りましたし
Sh.Calculateメソッドでも通りました

>>181
使ってないよ。sheetの指定はsetした変数を使ってる
昔はactive～やselect～を使ってたけどね

2017/07/09(日) 21:38:18.71

>>182
worksheetクラスではないクラスのプロパティを指定したらどうなると予想する？

例えばRangeクラスのプロパティとか

もしかしたらサイズとかを見ていてサイズが異なる場合はキャスト出来ないかもしれないど

メモリ領域には値が格納されているけどそれをどう解釈するかはクラスが決まらないと特定できない

2017/07/09(日) 21:45:51.77

>>183
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Debug.Print Sh.Range("a1").Address
End Sub
で
$A$1
が返ってきたわ

http://stamp-uploda.com/src/file7301.jpg

2017/07/09(日) 21:47:17.93

写ってないけどウォッチ式のshのプロパティは不明なままね
ウォッチ式がおかしい以外考えにくい

2017/07/09(日) 22:03:56.91

Private Sub Workbook_NewSheet(ByVal sh As Object)
　Dim obj As Object
　Set obj = sh
　MsgBox obj.Name
End Sub

これだと中身が見られないけど通る。
やっぱり>>183の型キャスト説じゃないかなぁ。
ローカルウィンドウでも見られないし。

obj.Value = "aaa"　で実行時エラーになる。
「ん～何か知らないけどValueに入れるよ？あっねえわｗ」　ってことでは？

.Nameや.Range().Addressはあったんで通る。