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

**デフォルトの名無しさん** (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

アリエッティだから…