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/06/26(月) 05:44:32.43

うんこ

2017/06/26(月) 06:30:06.46

>>1
乙

>>前1000
御目

2017/06/26(月) 13:46:58.30

おちるな！

2017/06/26(月) 17:31:56.55

埋め

2017/06/26(月) 19:50:29.41

Everything breaks.

2017/06/26(月) 22:30:10.16

地獄の社内SE
https://anond.hatelabo.jp/20170626005657

> 社内SEはなんとなく楽そうなイメージがあったので、就職した。
> 言語はエクセルVBAとVB.NET 1.0。
> 中身を見るとどちらもかなりやばい。
>
> VBA編
> ・ウォッチウインドウを知らないのか、変数はすべてセルに入れてる。変数名はすべてRANGE("A1").valueみたいな感じで全く意味が分からない。
> ・処理遷移がおかしい。
> セルに1を入れる。そのセルのchangeイベントで処理が動くとか。SHIFT+F2が無力化されてる。
> ・なるべくワークシート関数で処理してる
> データベースからとってきたデータを丸ごとワークシートにコピーしてif,vlookup,match関数を駆使して帳票にしたり、CSVにしてる。
> データ100件制限があったり、1関数を直すときは100行コピーしないといけない。画面中に埋め尽くされたワークシート関数をみて途方に暮れる。
> ・format関数を知らない。
> 8桁の日付をとりたいときyear、month、day関数がワークシートにあり、
> その下の行で月の二けた判定、日の二けた判定のif関数で頭の0をつけ3行目でconcatenateしている
> ・タイマー起動
> 毎朝100本ぐらいのマクロが動いてる。タイマー起動なので、毎日セットしないといけない。(タスクスケジューラーを知らない)
> がんがんエラーが発生するので、マクロ設定をエラー処理対象外のエラーで中断にしないと動かない。
> ・遅い
> textboxのchangeイベントでDBからのデータ取得処理を入れているので、データが多くなると1文字打つごとに数分待つ状態。exitイベントを知らないらしい
> DBの更新処理でもテーブル全件とってきて、ループしながらキーが一致するのを探して更新。
> ・変数や関数のスコープの管理
> ない。基本グローバル。
> ・クラス
> ない。
> ・ネスト
> ない。
> そんなつっこみどころしかないEXCELマクロが200本以上ある。
> おじいさんが20年にわたって深夜残業や休日出勤を厭わず作ってきた、地獄の社内システムの担当になったらしい。

2017/06/26(月) 22:46:39.40

>>7
ちょっとそうぞうしただけですっげーーーーーーーーーーーーーーーゲンナリした
うぇっっ

2017/06/26(月) 22:56:04.38

地獄とか書いてるけど、
全然地獄じゃないんだろうな。

強敵と戦う悟空みたいな感じで。

2017/06/26(月) 23:06:06.76

VBAが仕事っていいじゃねーか
業務の合間にマクロ作ってるけエクセルが得意な人扱いしかされない
カラオケが上手いとか酒が強いとかと同じ扱いだよ俺もVBAだけやってたいな

2017/06/26(月) 23:18:33.41

何か公開するとか解説記事を続けて書くとかしないと残るものがないよな

2017/06/27(火) 00:31:50.14

>>7
ヤバすぎでしょ

2017/06/27(火) 01:25:43.69

>>9
おれ、ああいうののメンテナンスする仕事したこと有るけど地獄だよ。

2017/06/27(火) 05:39:28.87

そこまでわかってるなら直すだけじゃん

2017/06/27(火) 12:11:28.10

inputとoutputがわかってんなら作り直したほうが…

2017/06/27(火) 13:08:41.86

どう考えてもイチから作り直すべきだが、それを現場がどう理解してるかだわ
セルに値が入ってないと管理できない！とかありそう

2017/06/27(火) 20:49:18.00

質問失礼します。
ある一つのセルに、氏名コメント改行文字が5人分入っていて、選択するとformにテキストボックスが5人分用意されている所に、それぞれの氏名に合わせて入る様になっています。

やりたい事は、formのテキストボックスに作業者が入力したのの更新履歴を付けたいのです。
作業者は自分の氏名のテキストボックスに入力することになっています。

コマンドボタンをクリックしたタイミングで、どのテキストボックスが最後に変更されたのか取得できる方法が有りましたら教えてください。

2017/06/28(水) 01:46:45.72

>>17
AfterUpdateイベントやChangeイベントで最後に更新されたテキストボックスを記録して、ボタンを押したときにその内容を読み取る、みたいな感じになる。
↓こんな感じ

Private LastUpdated

Private Sub TextBox1_AfterUpdate()
LastUpdated = "TextBox1"
End Sub

Private Sub TextBox2_AfterUpdate()
LastUpdated = "TextBox2"
End Sub

Private Sub CommandButton1_Click()
Dim str
If Not IsEmpty(LastUpdated) Then str = Me.Controls(LastUpdated).Text
'処理
End Sub

2017/06/28(水) 01:49:22.55

>>17
追伸
「vba フォームイベント」でググると色々とできることの幅が広がると思う。

2017/06/28(水) 03:46:14.99

しばらく前に騒ぎになったランサムウェアってVBAマクロなのか
マクロウイルスって今でもあるんだな

2017/06/28(水) 06:18:19.57

>>19
ご回答ありがとうございます。
今回の件はAfterUpdateで対応出来ました。
今後の為にお聞きしたいのですが、例えばテキストボックスが100個とかあった場合、VBのコントロール配列の様に一つのプロシージャで100個のテキストボックスのAfterUpdateに対応することは出来ませんか？

よろしくお願いします。

2017/06/28(水) 12:49:44.66

>>21
「vba フォームイベント withevents」とかでググれば、クラスモジュールを使ってイベント付きコントロールを配列またはコレクション化する方法が出てくる。

フォームの履歴管理には、クラス変数にフォームへの参照と、配列のインデックスまたはコレクションのキーなんかを渡して処理すればたぶんOK。

2017/06/28(水) 22:25:33.70

>>22
ありがとうございます。
witheventsを使用してテキストボックスのチェンジイベントをひとまとめに出来ました。
afterupdateをまとめれるともっと良かったのですが、それは無理そうなのでこれで満足です。
本当にありがとうございます！

2017/06/28(水) 23:11:40.00

１００という１０進数をDo loop を使って２進数に変換させるにはどのようにすればよいのでしょうか？
イメージとしては、１００を２ずつ割っていってそこで出たそれぞれの余りの数をセルA1に表示させたいです。
よろしくお願い致します。

2017/06/28(水) 23:24:22.72

>>24
それでいいと思います

2017/06/29(木) 00:00:46.01

>>25
それが出来ないです…

2017/06/29(木) 00:02:23.49

>>24
Do～Loop縛りなの？
worksheetfunction,dex2binを使えば楽ちんだけど。

2017/06/29(木) 00:03:15.79

間違えた。DEC2BINでした。

2017/06/29(木) 02:18:27.81

セルA1を毎回上書きしてるとか

まぁこの手の奴はぐぐれば腐るほどでてくるけどな

2017/06/29(木) 10:46:30.06

セルA1を瞬時に上書きしていって、それで何をしたいんだか？
最終的な目標は何なのかワカンネ w

2017/06/29(木) 12:17:53.07

1100100を出力したいんだろ

2017/06/29(木) 12:28:02.00

曖昧だけど設計まであるのにできてないのなら今どんなコードを書いてるのか提示して質問してほしいなぁ

いっそのこと「この仕様を満たすコードをください！」と言ってくれてもいいけど

**デフォルトの名無しさん** (JP 0H92-9Mth) · 2017/06/29(木) 16:10:07.03

はい、作ったよ
仕様満たしてるかどうかはあんたたちで
みっちり見てね
バグ見つけたら教えてね

で仕様齟齬をあぶり出してもらわないと
仕様を具体的に言わないクライアント(身内だけど)とは付き合えない

**デフォルトの名無しさん** (JP 0H16-CicO) · 2017/06/29(木) 16:13:40.02

>>33
作る前に要件定義すればいいのに

**デフォルトの名無しさん** (JP 0H92-9Mth) · 2017/06/29(木) 17:05:28.77

>>34
作ったモノ触らないと気がすまない連中なんだよ
もちろん作る前に要求仕様は聞くけど
後からチマチマと何か言ってくる

**デフォルトの名無しさん** (JP 0H16-CicO) · 2017/06/29(木) 17:16:17.14

>>35
面倒でも文書化して読んでもらうのがいいよ
読んで始めて、自分が何を欲しているか気づく場合もあるし
後は、プロトタイプかな

全部できて「これ、全然違うし」とか言われるリスクあるなら、そういうことやってみたらいいと思う

2017/06/29(木) 19:36:46.27

>>36
そう言う連中は要件定義書なんて読まんよ

2017/06/29(木) 20:02:23.80

このスレの人間って質問者置いてけぼりであーだこーだ言うのが多いけど、一番ムカつくのは、
肝心の質問者が自分のやりたい事はこういうことだって言わないこと。

少しは自分の質問に責任くらい持ちやがれ

2017/06/29(木) 20:20:17.81

こういった輩が多いから双方の軋轢が絶えないんだろな
先方はまったくの門外漢だ　て前提で仕事を引き受けられない
相手も自分と同レベルだと信じて疑わない　もしくは少し下ぐらい

初めて住宅を新築する顧客が、いきなり詳細設計図渡されて理解できるか？
ソッチで仕様書と図面引いてください　って言ってるのと同様だぞ？
引き受けるからにはその仕事を請け負う責任も勿論だが
これから実施する作業の概要・概略を相手に理解してもらうテクニックだって
必要だろ　　それを持ち合わせないならサンプル品なり試作品なり作ってでも
相手と同じレベルで進捗を図るのが普通じゃ無いのか？

こっちはざっくり動きや結果を見越せるけれど、相手にもそれを要求するのは
傲慢でしかないんだが
いわんや、相手の業種・業態に依ってはコチラ側が思いもしないような入力・
操作が要求されるケースだってままある

仕様も要件も書き出せますよ　なんてぇ企業相手ならおまえら不要だろ
社内で事足りるわ
も少し謙虚に成れんのか　会議だ仕様だ要件だなんてぇことに無駄な時間を
費やすぐらいなら、とっとと試作して「こうですか？」で何歩も進むだろ

いやすまん　なんでもない

2017/06/29(木) 21:03:34.33

ここの人間は質問者から金貰ってるわけでもなんでもねーわ

2017/06/29(木) 21:07:43.56

>>39
言いたいことはわかる
だが発言のベースが「やったけどダメだった！答えを教えろ！ダメだったモノは見せない！」じゃあんまりだと思う

2017/06/29(木) 21:21:50.99

コミュ障同志でケンカすんな

2017/06/29(木) 22:02:03.85

最近、趣味でVBAのプログラムを始めた初心者です
区切り記号を含むテキストデータを　Split()　を使って二次元配列に入れようと思っています。

テキストデータは、vbLf　で改行、行内のデータは、vbTab　で区切り　です

＜例： String 型の TextData　の内容＞
あああああ　アアアアアアアアア
いい　イイイイイ
ううううう　ウウウ
　（以下、同様の形式で全500行ある）

いろいろ宣言の仕方などを試した結果、次の方法でエラーなく実行できたのですが…

　Dim tmpDim As Variant
　Dim sqrDim(500) As Variant

　tmpDim = Split( TextData, vbLf )
　For i = 0 to UBound( tmpDim ) - 1
　　　For j = 0 to 1
　　　　　sqrDim( i ) = Split( sqrDim( i ), vbTab )
　　　Next j
　Next i

これでは、途中の38行目を読み込んだところ（i=37,j=1）で、
　実行時エラー '9':
　インデックスが有効範囲にありません
とのエラーが出て止まってしまいます。
（一次方向（行）には500個確保できていると思うので、なぜインデックスエラーなのか不思議です）

２回目のSplitの受けも、別の一次元配列で行い、後で二次元配列に格納すればいいとは思いますが
上手く二次元配列でSplitのデータを受けるやり方はあるのでしょうか？　お手数ですが教えてください

2017/06/29(木) 22:23:02.61

>>43
splitしたのがうまく行ってないと思う
ステップイン　で実行しながら
ウォッチ式　を見ると変数の中身が分かり安いよ

そのテキストを上げてもらえればこっちでも確認する

2017/06/29(木) 22:33:09.86

>>43
これ通るの？
　　　For j = 0 to 1
　　　　　sqrDim( i ) = Split( sqrDim( i ), vbTab )
　　　Next j
で sqrDim( i ) を２回splitしてる。
１回めは文字列のsplitだからいいけど、２回めは配列のsplitになってエラーになりそうだけど。
For j のループは不要。

あとついでに
For i = 0 to UBound( tmpDim ) - 1
だとTextDataの最終行のデータが配列に格納されないけど問題ないか？

2017/06/29(木) 22:47:04.00

>>43
こうでしょ

　Dim tmpDim As Variant
　Dim sqrDim As Variant

　tmpDim = Split( TextData, vbLf )
　ReDim sqrDim(LBound(tmpDim), UBound(tmpDim))
　For i = LBound(tmpDim) to UBound( tmpDim )
　　　　　sqrDim( i ) = Split( tmpDim( i ), vbTab )
　Next i

sqrDimは２次元配列じゃなくて配列の配列になるけど、むしろこっちの方があとで楽だと思う。

43 (ﾜｯﾁｮｲ 6d2e-mQuD) · 2017/06/29(木) 23:32:28.05

>>44-46
早々に回答ください、どうもありがとうございます。

いろいろ回答を頂いておきながら、大変申し訳ないのですが、
38行目のデータをよく見たところ、TAB区切りではなく、ここだけスペースが入っていました
（他は、各行に２個の要素があったのですが、ここだけ要素が１個でした）
そして、これを修正したら、エラーなく実行できました。
お手数をおかけし、申し訳ありませんでした。

おっしゃる通り、ｊ　のループは不要ですね。（いろいろ修正していて、ｊ　を使わなくなったようです）

> だとTextDataの最終行のデータが配列に格納されないけど問題ないか？
いえ、ちゃんと最終行まで格納出来てました
（UBound()は要素数を表しているように思います）

> 　ReDim sqrDim(LBound(tmpDim), UBound(tmpDim))
ReDim　は使ったことがないので、また調べてみます

以上、ありがとうございました。

43 (ﾜｯﾁｮｲ 6d2e-mQuD) · 2017/06/29(木) 23:41:18.00

>>45
> これ通るの？
> 　　　For j = 0 to 1
> 　　　　　sqrDim( i ) = Split( sqrDim( i ), vbTab )
> 　　　Next j
これ、写し間違いでした。　２回目に　Split　するのは　tmpDim　でした

×：　　　　　sqrDim( i ) = Split( sqrDim( i ), vbTab )
○：　　　　　sqrDim( i ) = Split( tmpDim( i ), vbTab )

申し訳ありませんでした

2017/06/30(金) 00:06:21.55

>>47
> （UBound()は要素数を表しているように思います）

一応言っておくと、これは間違い。
UBound(tmpDim) は配列tmpDimのインデックスの最大値を返す。
TextDataが500行(vbLfが499個)だとしたら、tmpDimのインデックスは(0 to 499)になるから、UBound(tmpDim) は499を返す。
このコードのsqrDim(500)が全部埋まってるのであれば、TextDataは501行あるはず。
まあ結果がOKならいいんだけどね。

2017/06/30(金) 00:09:11.22

失礼、>>49に間違い。
sqrDim(500) だとsqrDimの要素数は501だから、全部埋まってるの場合のTextDataの行数は502行になるはず。

43 (ﾜｯﾁｮｲ 6d2e-mQuD) · 2017/06/30(金) 00:48:26.80

>>49-50
> 一応言っておくと、これは間違い。
> UBound(tmpDim) は配列tmpDimのインデックスの最大値を返す。
申し訳ないです。
おっしゃる通り、ググってみるとそのように書いてました。
なお、TextDataは実際には400行前後のため、偶然上手く動いているように見えてたのですね
（実際は、400～499までループが回っており、タチの悪いバグになるところでした、感謝です）

前にＣ言語を少しやっていたので、同じ扱いだと思っていましたが違ってたんですね
わざわざありがとうございます。

2017/06/30(金) 00:56:40.46

>>51
そう
[LBound, UBound) じゃなくて [LBound, UBound] で回さなきゃダメ

**デフォルトの名無しさん** (JP 0H92-9Mth) · 2017/06/30(金) 10:48:30.68

ここの強者はExcelVBAエキスパートの資格持ってるの?
簡単そうだから取ろうかなと思ってる

**デフォルトの名無しさん** (JP 0H16-CicO) · 2017/06/30(金) 10:58:10.76

>>53
取ればいいんじゃないの？

2017/06/30(金) 11:59:14.93

そんなもんMOS以下の価値しかないと思うが…

2017/06/30(金) 17:12:37.88

コンピュータ関連も色んな資格あるけど、ああいう資格を基準にして採用している所ってどれだけあるんだろ。

2017/06/30(金) 20:10:03.92

基準にはしないかな
あーできるんですねって程度。どちらにしても実地試験は受けてもらう

2017/06/30(金) 23:09:21.97

俺、プログラムは作れるけど、試験は落ちそうだな。

DimとかRowとか、短い文字は打てるんだけど、
長いのは、普段コピペしてるから、打てない。

最近、やっとColumnsを間違えずに打てるようになったわ。

それまでは、Corums?　ん?　Colmns?　え?　Culomus?　違う?
Colums?　わかんね。　もう諦めてコピペしよう、みたいな感じ。

2017/06/30(金) 23:13:28.48

プログラムの実技試験で暗記力が必要なのはそろそろどうかとは思う

2017/07/01(土) 00:25:54.92

10年選手だけど
フィボナッチとかハノイの塔とかソラで出できないぞ俺

2017/07/01(土) 00:29:13.54

それは数学の知識の問題だと思うので、別にできなくてもいいと思う。多分一生役に立たない
でも最小二乗法とか漸近線、偏差値など、統計学的な知識はあったほうが良いと思う

2017/07/01(土) 04:46:24.33

>>53
昔、某掲示板で質問した人に話の内容から初心者として扱ったらその資格持ってるとのことでびっくりしたことがある。

どんな資格でもそうだけど、そういうもんなんでしょう。
そうしないと受かる奴いなくなっちゃう。

2017/07/01(土) 04:52:54.03

>>60
そんな問題が実際の案件に出てきた時に最適なコードが書ければ良いでしょ。
それにその程度の話ってググレば出てくるでしょ。

そんなのは何かあったよなと思うことが出来てググレればOK。
それよりも上手いやり方に気付かずにクソコード書く奴は多い。

2017/07/01(土) 08:01:59.81

>>63
自分のクソは棚上げかクソｗ

2017/07/01(土) 08:05:36.28

>>64
お前は試験も仕事も両方苦手みたいだな

2017/07/01(土) 08:23:17.10

>>57
実地試験ってどんなことやるの？

2017/07/01(土) 08:38:38.91

>>66
支店名　状態　月　売上
A支店　　　　　3　200
B支店　　　　　3　10
C支店　　　　　3　500
A支店　　　　　4　300
B支店　閉店　4　0
C支店　　　　　4　600

4月の売上平均を求めよ（制限時間5分）
って感じ。

D1=(300+0+600)/3
にはたまげた。もちろん関数を使わない人はアウト

B支店を入れるかどうか疑問に思えば合格

2017/07/01(土) 08:58:05.68

>>67
関数？
VBA の試験なのに？

2017/07/01(土) 08:59:25.55

>>68
あぁすまん、ここvbaスレか。Excelスレと思ってた。忘れてくれ

2017/07/01(土) 10:42:47.44

エクセルのある部分をリストボックスにしたいのですが、rowsourceで設定すると、間に空白が多くなった時に使いにくいです。
そこで下記のように空白だったら、リストに加えないとしたら、リストに何も出てきません。
どこがおかしいでしょうか？　RowPN(i)には既にエクセルの1セルの値が167個入ってます。

i = 1
i1 = 1
Do Until i > 168
On Error Resume Next
If RowPN(i) <> "" Then
UF6ComboBox1.AddItem RowPN(i), i1
i1 = i1 + 1
End If
i = i + 1
Loop

2017/07/01(土) 11:20:29.10

VBAの試験って、やっぱ何らかの制限付きなんだろうか。
制限しないと、ソートにSQLとか、Worksheetfunctionとか、
Cells(1,1).Value="計算式"とか、正解だけど、試験の趣旨としてどうなの?
という答えが沢山出来てしまう。

2017/07/01(土) 11:27:20.68

>>70
・RowPNの中身が全て""またはEmptyになっていないか。
　Dubug.Printまたはローカルウィンドウでの確認を推奨する。
・リストボックスと言っているが変数はUF6ComboBox1で合っているか。
・RowPNの要素が(0 To 166)ないし(1 To 167)だとDoループがi=168までカウントするのでインデックスエラーになる。
　For文の方が無難そうに思えるのと、ここでOn Error Resume Nextはどうかと感じる。

2017/07/01(土) 11:30:18.64

>>70
セルから値をとってるならこれでいいと思われ

Dim i As Long

For i = 1 To 168

　If Cells(i, 1) <> "" Then

　　ComboBox1.AddItem Cells(i, 1)

　End If

Next

2017/07/01(土) 11:30:59.20

>>72 ３行目間違い。。
? Dubug.Print　○ Debug.Print

2017/07/01(土) 11:45:10.97

>>71
ググればすぐわかる。
なんか１日対策勉強したら余裕そう。

2017/07/01(土) 11:48:18.71

>>72　>>73　ありがとうございます。　値は入ってるのは確認しました。FOR文も空白ですね・・・。
シート使っているので、そこに1エリア儲けて、空白除いて再整列させて、ROWSOURCEで設定してみます。

2017/07/01(土) 12:12:06.78

>>75
いきなりサンプル問題で躓いたwwwwwwww
セルの範囲指定で「"A1:B1"」以外に「"A1","B1"」も使えるとか知らんわwwwww

2017/07/01(土) 12:14:29.98

>>76
その方法で納得ならいいですが

配列に入っているなら
On Error Resume Nextで
コントロールを参照できないのでエラーしているのを
すっ飛ばしているのではなかろうか。
つまり>>72が言っているようにUF6ComboBox1は存在しないのでは。
On Error～をコメントアウトしてみてはどうか。

と思う。

2017/07/01(土) 12:28:18.39

>>78　オブジェクト名は間違うと動かなくなるので、いつもコピペしてるんですよ。
とりあえずシート使って逃げて、rowsourceでうまいこと動きました。

2017/07/01(土) 14:17:52.99

>>61
数学の知識というより再帰関数とかのプログラム技術の問題

2017/07/01(土) 23:37:04.61

こんばんわ、
シティーボーイズやってました、再帰しげるです

2017/07/02(日) 02:18:34.32

こんばんわ、
膣に挿入したら動きません、きたろうです

2017/07/02(日) 05:10:18.40

突然　なんだ！

2017/07/03(月) 17:11:55.95

以下のプログラムで「該当するセルが見つかりません」となってしまいます。
該当するセル範囲のセルはすべて空白です。
期待する動作は、「B4:B6の範囲の空白セルにコメントを入れる」です。
Sub commentAddToBlankCells()
____On Error GoTo ERROR_ALL
____Range("B4:B6").SpecialCells(xlCellTypeBlanks).AddComment "目視確認"
____Exit Sub
ERROR_ALL:
____MsgBox Err.Description
End Sub
※Excel2010です。

84 (ｱｳｱｳｳｰ Sa25-k1q/) · 2017/07/03(月) 17:42:48.19

Excelのバグのような気がしてきました。

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

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渡し出来ないんじゃなかったっけ？