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/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はあったんで通る。

2017/07/09(日) 22:23:32.11

>>186
それはrange指定してないっす・・・

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Cells(1, 1).Value = "aaa"
End Sub

で通ったよ

2017/07/09(日) 22:31:30.92

>>184
Debug.Print Sh.Range("a1").Address
ではなくて
Debug.print sh.address
だったらどうなるかって意図だったけど
ためしたら実行時エラーになる
これはtypename(Sh)を表示したらわかるけど
Shという変数自体にクラス(型)に関する情報を持っているから
無理矢理Rangeクラスのプロパティを表示させようとするとエラーになる

dim rng as Range
set rng = Sh
とかやっても実行時エラーになる
文法的にはエラーじゃないからコンパイルは通る

VBAが型チェックしてバグにならないようにしていると思う
他の言語だとこれができるものもある

2017/07/09(日) 22:35:23.27

>>187

ShがWorksheetクラスだっていうのが判ってるからRangeを指定するってわかるけど
Objectクラスだったら何のプロパティを持っているかわからなくない？

Objectクラスはすべてのクラスのスーパークラスだから何でも参照できる
Sh as Objectと宣言されているShが実態はRangeクラスである場合もある
その場合は、Sh.Value = "a"でも実行時エラーにはならない

2017/07/09(日) 22:50:14.83

>>188-189
なるほど、意図が分かりました。コンパイルエラーになる意味もわかりました、ありがとうございます

以下の状態だと、shの型はobject/Sheet5としてウォッチ式に認識されます
この「Sheet5」というのは何でしょうか？
デフォルトプロパティでしょうか？

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim sheet As Worksheet
Set sheet = Sh
Debug.Print 1 'ここでブレークポイント
End Sub

2017/07/09(日) 22:58:28.17

しかし>>175がどうしてもわかりません

object型をobject型に渡してもプロパティは分からない、それは分かります
http://stamp-uploda.com/src/file7303.jpg

object型をworksheet型に渡すと、ウォッチ式で見れるようになる、それがわからない
http://stamp-uploda.com/src/file7302.jpg
全部のプロパティ・メソッド見たら全部一致してたからworksheetとしてコピーしますね～ということ？

2017/07/09(日) 23:03:28.23

>>190
Set sheet = Sh
を実行した時点で、Sh = sheet = Worksheetクラスのオブジェクトと特定可能
なのでworksheetクラスのデフォルトプロパティを表示しているのではないか

ウォッチ式にsheet変数も追加すると、そのタイミングで
Shの他のプロパティも見えるようになった

2017/07/09(日) 23:06:31.26

>>191
型キャストで
Shがワークシートだと判明したので
Shとsheetは同じ物なので
両方のプロパティが同じで表示されるのではと思うが。
詳しくはマスターにまかせる。

と思ったらもう回答されていた。

すごい勉強になった。

2017/07/09(日) 23:09:27.92

>>191
ウォッチ式の表示更新タイミングはその内容が特定されたときに
即座に表示更新されるとは限らない
つまり表示更新されるよりもずっと前に表示すべき内容が特定されていた可能性もある

2017/07/10(月) 09:22:58.03

activesheet使うのはworksheets.copy使うときぐらいだな
真面目に作るときは書式とか直で指定するように頑張るけど

2017/07/10(月) 12:08:47.45

レコードセットをそのままシートに張り付けると、元の型を継承して数字のみのカラムも文字列として貼られるんだけど、さすがにどうしようもない？

2017/07/10(月) 12:39:11.04

>>196
あとで一括して和0すりゃいいじゃん

2017/07/10(月) 12:47:22.77

>>197
和は加算の結果を表す言葉
0を加算とか足す0じゃないと意味が違ってくる

因みにレコードセットの型はcolumnの最初の7行分のデータから推測されるとかだったと思うから
目的の型になるようにソートすればいいかも

2017/07/10(月) 13:37:23.50

関数の引数にbyval ws as Worksheetってやるとどうなるの？

worksheetに対しては、byrefしか使ったことない

2017/07/10(月) 14:25:22.38

オブジェクト型はbyval渡し出来ないんじゃなかったっけ？

2017/07/10(月) 14:36:15.11

>>198
なるほどそうだぬ
「ゼロを一括して加算(D)すりゃいい」と言い直させてもらう

もともと具体的に書かず曖昧な表現を目指していた

2017/07/10(月) 14:38:53.50

>>200
できるよ。
メソッド呼び出しもそのオブジェクトに対するものとなる。
違いが出るのは代入(=)演算の意味だけだと思う。

2017/07/10(月) 15:15:06.40

>>199
たぶんプロシージャ内の set ws=hoge が引数に反映されるかされないかが変わってくる

2017/07/10(月) 16:10:50.58

>>203
ありがとうございます。
時間あるときに試してみます！

2017/07/10(月) 17:19:20.24

thisworkbookをoptionalな引数のデフォルト値にしたいんだけどできない
何かいい方法知りませんか

2017/07/10(月) 18:34:12.31

>>205
確認せずに答えるけど、できないならOptionalのデフォルト値をNothingにして、
モジュール内で判断・分岐する

If a Is Nothing Then Set a = ActiveWorkBook
とか

2017/07/10(月) 18:40:40.88

デフォルト値は定数式で、って言われるな

デフォルト値を文字列にして"thisworkbook"、evalで…とか考えたけど2013持ってないから試せない
そこまでしても読みにくくなるだけなので、素直に>>206みたいに条件分岐させたほうが良いと思う

2017/07/10(月) 19:04:18.69

質問です。
ユーザーフォームをShowModal=Falseで表示しており、フォームを表示したまま、フォーカスをフォームからセルに移動することは可能でしょうか？
cells(1,1).select や application.goto cells(1,1) ではフォーカスがフォームから動きませんでした。

2017/07/10(月) 19:17:57.83

>>208
昔やったことあるなぁ
と思って試したら、仕様変更でできなくなってるっぽい
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=44929;id=excel
2010は無理だった

**208** (ﾌﾞｰｲﾓ MMdb-MhHl) · 2017/07/10(月) 19:26:18.02

>>209
回答ありがとうございます。
後出しで申し訳ないですがバージョンは2007です。
試せるのが明日になりますが、appactivate試してみます。

2017/07/10(月) 20:52:31.16

>>206
やっぱりそうなるか
でもなんでできないんだろうインスタンスとして実体化されてないから?
そんなことないよな

2017/07/10(月) 21:00:26.90

>>211
コンパイル時点で決まってないからかな～

**208** (ﾌﾞｰｲﾓ MMdb-MhHl) · 2017/07/11(火) 12:39:40.24

>>209
AppActivateもApplication.Visible=Trueでもいけました！
ちなみに以下のも試しましたが全部ダメでした。
ActiveWindow.Activate
ActiveWorkBook.Activate
ActivateSheet.Activate

2010以降だとWIN32APIとかでシートのマウスクリックを挟まないとダメかもですね。

2017/07/11(火) 19:59:21.82

>>213
良かったね
2007と2010でそんなとこに差があるとは驚いた

2017/07/12(水) 19:38:42.24

Sh As Object
Sh

2017/07/12(水) 19:41:14.38

↑誤送信すまん。

Sh As Object
Sh As Worksheet

どちらでも動くのは分かる。
Objectにするのって、
どんな値が入るかわからないから、
Variantでいいやって考えるのと同じ?

2017/07/12(水) 19:46:47.71

どんな値が入るかわからないコードってどんなコード？
デバッグ用にエラーで分岐させた先とか？

2017/07/12(水) 19:50:58.17

つっこむならせめて値と型の違いぐらい分かっていて欲しかったなあ

2017/07/12(水) 19:53:10.98

>>217
variantさんディスってるの？

2017/07/12(水) 20:00:38.68

>>218
普通にすまん

>>219
あってもなくても一緒では？
variantを書くのは「どんな型が入るか分からない」と明示する以外に利点があるのだろうか

2017/07/12(水) 20:10:18.44

NewSheetイベントの引数の場合、Shには
「Worksheet オブジェクトまたは Chart オブジェクトが渡されます」
と書いてあるので
どっちが渡されてもいいようにObjectなのでしょう

2017/07/12(水) 21:14:58.86

俺の書くVBAはVariantばっかりだけど問題ないよね？

2017/07/12(水) 21:19:09.13

個人利用である限りはね

2017/07/12(水) 21:27:49.15

書籍にさえ糞みたいなコードが平然と書かれてるVBA
どんなコードだってヘーキヘーキ

2017/07/12(水) 21:28:35.71

そもそも宣言しなくても特に問題はない
vbaの型なんてやわらかすぎてあってないようなもん、死にはせん

2017/07/12(水) 21:34:45.69

>>223
もちろんさ！
ちょっと単体テストすりゃ全然平気！

唯一気をつけるのはNULLが来た時の扱いだけど、「NULLがあり得る」場合は結局避けられない問題だし

2017/07/12(水) 21:40:21.42

ただこーゆー所でVariantプログラムって言うとなんやかんやめんどくさいので胸の内に秘めとくことをオススメする

2017/07/12(水) 21:47:21.99

俺がそのVariantを全部なくしてやるよ！
　↓

2017/07/12(水) 21:48:46.29

NULLじゃなくてnothingでは