トップページ⇒tech
1001コメント350KB

Excel VBA 質問スレ Part32

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん2013/10/07(月) 22:19:55.86
ExcelのVBAに関する質問スレです

★1 質問テンプレ(雛形)は用意しませんが､OSとExcelのバージョンは必ず書きましょう。

★2 ExcelのVBA以外の部分に関する質問はNGです。
　　　但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。

★3 ExcelのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。

　VBAとは､『Visual Basic for Applications』の略で
　　Application
　　├Workbooks
　　｜└Workbook
　　｜　 ├Worksheets
　　｜　 ｜└Worksheet
　というApplication以下のオブジェクトを､VB言語で操作するものを指します。
　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。

★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。

★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み、
　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。
　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。

★6 わからなければとりあえず「マクロの記録」（Alt, T, M, R）

前スレ:Excel VBA 質問スレ Part31
http://toro.2ch.net/test/read.cgi/tech/1376371376/

関連スレ：VBAなんでも質問スレ
http://toro.2ch.net/test/read.cgi/tech/1342087380/
0604デフォルトの名無しさん2014/01/31(金) 18:03:32.36
わかったかも
0605デフォルトの名無しさん2014/01/31(金) 18:14:47.51
ひんと
条件をチェックしたいタイミングのイベントプロシージャを作る
プロシージャ内で対象範囲をチェックする
0606デフォルトの名無しさん2014/01/31(金) 21:18:09.72
意外に難しいかも。
0をTextで見ようとすると、セル幅を縮めると#になってしまうし。
ここで難しいのは一点のみで、
0と空のセルの見分けだけ。
0607デフォルトの名無しさん2014/01/31(金) 21:33:39.18
ボタンを押したら実行なのでイベントは関係ない
0でも空白でもエラーなので見分ける必要はない

ほらもうできた
0608デフォルトの名無しさん2014/01/31(金) 21:34:36.44
つ クリックというイベント
0609デフォルトの名無しさん2014/01/31(金) 21:54:53.65
初心者で申し訳ないです
では、イベントプロなんちゃらってのは関係内という事でいいんでしょうか？
0610デフォルトの名無しさん2014/01/31(金) 22:12:46.74
flag = false
for each cel in range("A1:D3")
　　flag = flag or (val(cel.value) <> 0)
next
if flag then
　　処理
end if
0611デフォルトの名無しさん2014/01/31(金) 23:31:02.09
2ちゃんに来る前にググれよ
0612デフォルトの名無しさん2014/02/01(土) 06:16:32.91
>>609
いんにゃ、ボタンを作ると勝手に作られる関数があるでしょ。それがイベントプロシージャ。
微妙なのが関数を作っておいてシェイプとかでマクロの登録で設定した場合。
これはイベントプロシージャと呼べるのかと言えば
シェイプ押下時に起きるイベントで呼び出される設定がされた関数ってだけになるのか、
「それってイベントプロシージャってことじゃん」ってなるのかどっちだろ？
0613デフォルトの名無しさん2014/02/01(土) 07:02:12.88
>>612
シェイププロシージャ（コードが先でオブジェクト関連付けが後）にしよう
イベントプロシージャ（オブジェクトが先でコードが後）ではないことにしよう
0614デフォルトの名無しさん2014/02/01(土) 12:24:48.84
イベントで呼び出されるプロシジャがイベントプロシジャなんだから
後から関連付けようが自動的に作成されようがイベントプロシジャにきまってるだろが
0615デフォルトの名無しさん2014/02/01(土) 14:58:00.05
動かすことはできたのですが、理由がよくわからないので図書館いって勉強してきます
みなさん本当にありがとうございました
0616デフォルトの名無しさん2014/02/01(土) 21:04:47.99
動きゃ良いんだよ、動きゃ w
0617デフォルトの名無しさん2014/02/01(土) 22:27:12.53
意味わかったわｗ
>>610さん賢いなぁ
0618デフォルトの名無しさん2014/02/02(日) 06:22:16.18
賢くないだろw
冗長だし
0619デフォルトの名無しさん2014/02/02(日) 07:41:58.11
1行で書けるもんな
行儀のいい書き方でも3行
0620デフォルトの名無しさん2014/02/02(日) 17:07:18.39
選択したセル範囲にぴったりと重なった四角のオートシェイプをつくりたいのですが、幅と高さの指定をどうすればいいのかわかりません。
0621デフォルトの名無しさん2014/02/02(日) 17:15:35.15
>>619
1行での書き方もしよければ教えてください
0622デフォルトの名無しさん2014/02/02(日) 18:27:28.63
>>620
width、height
0623デフォルトの名無しさん2014/02/03(月) 20:23:54.81
じゃあ、整数x〜yの範囲でz個の重複しない乱数を求めるには
どういうコードを書けばいいですか？

いいアルゴリズムが思いつきません。
乱数を発生させたたびにそれまで発生させたすべての乱数と重複がないか調べ
なければ次の乱数、あればやりなおし、
というアルゴリズムよりいい方法はありますか？
0624デフォルトの名無しさん2014/02/03(月) 21:33:24.65
スレ違い

ここはとりあえず結果が出せればOKなスレ

アルゴリズムを詰めていって最適化する話は余所でどうぞ
0625デフォルトの名無しさん2014/02/03(月) 21:33:50.25
またお前かという感じ
0626デフォルトの名無しさん2014/02/03(月) 22:40:14.82
345 デフォルトの名無しさん 2014/01/05(日) 12:20:51.84
>>339の回答を知りたいんだけど
z個の乱数をx〜yの範囲で発生させ
それらが同一のものが1つもないかどうか調べて　(←このアルゴリズムも簡単ではないが)
なければそれで終了、あればまた最初からやりなおし、
という方法はどう？
もっといい方法ある？

623 デフォルトの名無しさん 2014/02/03(月) 20:23:54.81
じゃあ、整数x〜yの範囲でz個の重複しない乱数を求めるには
どういうコードを書けばいいですか？

いいアルゴリズムが思いつきません。
乱数を発生させたたびにそれまで発生させたすべての乱数と重複がないか調べ
なければ次の乱数、あればやりなおし、
というアルゴリズムよりいい方法はありますか？


ふーむ
06276232014/02/03(月) 23:03:17.99
天才的な方法を思いついた。
z個の乱数がほしいから
とりあえず範囲を1ずつ減らした範囲でz個の数列を作る。
そのあとに数決定する。
どうだ？
天才的だろう。

わからない人のために具体例を挙げる。
1から10の範囲で3個の乱数なら
次の範囲内で3個の乱数を発生させる
a= 1〜10
b= 1〜9
c= 1〜8

そして出力の3つの数は10人の人が並んでると想像して
最初の数はa番目に並んでる人。
2番目の数はスペースは詰めてb番目に並んでる人。
3番目の数はスペースは詰めてc番目に並んでる人だ。
0628デフォルトの名無しさん2014/02/03(月) 23:05:08.56
>>374のアルゴリズムが劣るのは、3つの数値の組み合わせによっては時間がかかる。
0629デフォルトの名無しさん2014/02/03(月) 23:28:46.88
>>628
いや、これ以上は恐らく無いだろ。
ソートもちゃっかり兼ねているｗ
0630デフォルトの名無しさん2014/02/03(月) 23:28:51.82
はい次の方〜
0631デフォルトの名無しさん2014/02/04(火) 00:07:09.11
x-yの数字をランダムに並べ替える
先頭からz個取る
終了
0632デフォルトの名無しさん2014/02/04(火) 00:18:21.61
>>621
If WorksheetFunction.CountIf(Range("A1:D3"), ">0") + WorksheetFunction.CountIf(Range("A1:D3"), "<0") Then 処理
0633デフォルトの名無しさん2014/02/04(火) 00:21:47.43
xとyは整数って書いてあるけど、その間の乱数も整数って条件なの？
0634デフォルトの名無しさん2014/02/04(火) 00:22:30.81
>>629
乱数だろ？ソートしていいんか？
0635デフォルトの名無しさん2014/02/04(火) 11:50:31.33
>>633
まえにどっかで見たときの話ならそう言う条件だったはず
実数でいいなら、数千個の乱数出力とかでもなければ単純に繰り返して重複チェックするんでいいんじゃね
数千個の乱数欲するけど重複はダメってなら、乱数の使い方がおかしいと思うぞ
0636デフォルトの名無しさん2014/02/04(火) 23:23:36.85
>>631
並べ替えは何回くらいやるの？
多くやらないとちゃんとまざらないし
x-yの範囲が広いときはさらに並べ替えの回数はものすごく多くしないといけない問題がある。
0637デフォルトの名無しさん2014/02/05(水) 03:43:18.23
1番目の要素をランダムな要素と入れ替える
2番目の要素をランダムな要素と入れ替える
以下x-yまでの要素数まで繰り返す
入れ替え回数はx-yの要素数と同じでいいだろ
要素数に対して必要な数が少ないなら効率的ではないけど、それなら単純な重複チェックでいいから
まあとりあえずこれ以上はどっかアルゴリズムのスレ探してそっち行け
0638デフォルトの名無しさん2014/02/05(水) 09:39:16.44
>>637
入れ替え入れ替えとあなたおっしゃったけどね
その入れ替え自体のアルゴリズムも考える必要があるんです
あなたとは違うんです
0639デフォルトの名無しさん2014/02/05(水) 10:44:19.76
本当の乱数は、同じ数字ばかり何回も続けて出たり、1・2・3・4と順番に出ることだってある
あらゆる可能性が平等なのが乱数

だから「よく混ざる」ってのは乱数の定義と矛盾する
それは本当の乱数ではなく、乱数のうちの1パターンを人間の意思で選んでいる(または拒否している)
人の意思が入った時点でそれは乱数ではなくなってしまう
0640デフォルトの名無しさん2014/02/05(水) 14:22:39.33
>>639
袋に最小から最大の数字を各々書いた玉があって
それを戻さないで取っていくとどうなるかを
コンピュターの乱数機能を利用して実現してるだけだから
そんな乱数の定義とは関係ない。
0641デフォルトの名無しさん2014/02/05(水) 16:07:27.16
答え出たね！
0642デフォルトの名無しさん2014/02/05(水) 16:16:06.35
ソース（n）
For i To n
ソース（i） ＝ i
Next
while n ＞ 0
データ（i） ＝ ソース（random）
n ー 1
i + 1
LOOP
0643デフォルトの名無しさん2014/02/06(木) 04:12:42.33
「乱数自体の数値を得る」ではなく
「乱数を使って並べ替える」みたいなものだからな
0644デフォルトの名無しさん2014/02/06(木) 10:46:18.47
「ランダムに選ぶ」のと「乱数」は違う

前者の場合、もし最初に引いたのが「1」だったら、2回目は1が出ないことが確定してしまう
乱数なら次も1になる可能性がある

数学的に言えば確率論の中の順列の問題
ビンゴとサイコロの違いと言えばわかりやすい
質問者がわかってない
0645デフォルトの名無しさん2014/02/06(木) 13:55:18.98
そろそろ別の所でやって
0646デフォルトの名無しさん2014/02/19(水) 17:38:52.21
Sub xからyのz個の乱数重複なし()
Const x As Long=0,y As Long=1000000,z As Long=500000
Dim i As Long,j As Long,k As Single,bool As Boolean,Flag(x To y) As Boolean
'処理
Randomize
Do
bool=z>j
If bool Then k=(z-j)/(y-x-j+1) Else k=1-z/j
For i=x To y
If (Flag(i) Xor bool) And Rnd<=k Then
Flag(i)=Not Flag(i)
If Flag(i)Then j=j+1 Else j=j-1
EndIf
Next
Loop Until j=z
'表示
j=1
For i=x To y
If Flag(i)Then
ActiveSheet.Cells(j,1).Value=i
j=j+1
EndIf
Next
End Sub
0647デフォルトの名無しさん2014/03/05(水) 07:35:56.11
http:〃20m.ziploader.net/dl.phpx?id=ziploader2062
★zipファイルの「阪神近鉄無」フォルダー以下
「平成25年12月」「平成25年11月」の数値未発表で一部合計値比較不可能の為
　平成25年10月〜平成13年4月は以下路線の各駅を合計・増減から除外して再計算。
　「阪神」─「本線」「なんば線」
　「近鉄」─「難波線」「大阪線」「南大阪線」
★zipファイルの「阪神近鉄有」フォルダー以下
　除外せず、「平成25年12月」「平成25年11月」の未発表数値を前年同月と同一と仮定
0648デフォルトの名無しさん2014/03/06(木) 23:19:40.48
質問させていただきます。

B600に関数が入っていて
B601には空白です。
B602にも関数が入っていて
B603は空白です。

こんな感じで、Bの1700行まで関数が一行置きに入っているのですが、セルの結合を二行ずつしたいと思っています。
どういう風な記述になりますでしょうか？
0649デフォルトの名無しさん2014/03/07(金) 00:11:16.39
>>648
For r = 600 To 1700 Step 2
　Range(Cells(r, 2), Cells(r + 1, 2)).Merge
Next
0650デフォルトの名無しさん2014/03/07(金) 00:51:11.60
>>649
ありがとうございます！！！

もうひとつお聞きしたいのですが、、、
0651デフォルトの名無しさん2014/03/07(金) 01:01:27.94
Private Sub Worksheet_Change(ByVal Target As Range)

If Cells(Target.Row, "E").Value = "新" Then
Application.EnableEvents = False

On Error Resume Next
If Not (Intersect(Target, Range("H:H")) Is Nothing) Then
Cells(Target.Row, "G").Value = (1 - Cells(Target.Row, "H").Value) * Cells(Target.Row, "F").Value

End If

Application.EnableEvents = True

End If
End Sub
0652デフォルトの名無しさん2014/03/07(金) 01:04:46.69
H列に数値を入力したらG列に計算結果を表示するのですが、切り捨てにするにはどうすればよろしいでしょうか？
0653デフォルトの名無しさん2014/03/07(金) 07:39:53.10
vba 切捨て でぐぐればいっぱい出てくる
0654デフォルトの名無しさん2014/03/07(金) 08:25:53.28
VBの丸めは五捨六入だっけ？銀行丸めっつうの？
どハマりして結局関数を作った記憶があったようななかったような

とりあえず、G列はH列を参照するのならG列にエクセル関数を入れればいいよ

あとお節介だけど、プログラムが全く理解できてないみたいだけど、知識をつける必要がないのなら構わないけど、自分で調べた方がいいよ
0655デフォルトの名無しさん2014/03/12(水) 01:22:26.84ID:x9JPMObJ
無いに決まってるから聞いてんだろ。
おせっかいウザイ。さっさと回答くれ。
0656デフォルトの名無しさん2014/03/12(水) 01:45:28.79ID:ZXRx46ei
IDつけたのか
てすてす
0657 【9.6m】 2014/03/12(水) 01:46:00.18ID:ZXRx46ei
にょろーん
0658デフォルトの名無しさん2014/03/12(水) 11:47:45.36ID:4Vi2bcOW
>>657
コラ。にょろーんとするな。
0659デフォルトの名無しさん2014/04/03(木) 10:09:06.33ID:Eig24VSK
セルのプロパティでFormulaやFormulaR1C1はどんな使い方をするのでしょうか？
いまいちよくわからないのですが。
0660デフォルトの名無しさん2014/04/03(木) 10:15:53.71ID:4gfcVwhu
>>659
VBAからワークシートの数式を書き換えることができる
オートフィルでは思った通りに変化してくれないような時に、VBAを使って数式を自動生成する
0661デフォルトの名無しさん2014/04/03(木) 10:29:44.67ID:Eig24VSK
>>660
なるほどありがとうございます。
でもどう使いますか？

単に
Cells(r,c)="=IF(B1=C1,D1,E1)"
と書くのと
Cells(r,c).Formula="=IF(B1=C1,D1,E1)"
と書くのでは違うということでししょうか？

VBAでも自動でオートフィルしてくれますか？たとえばRange("A1:A100")="=B1*100"とすればA100セルは"=B100*100"になってる？
0662デフォルトの名無しさん2014/04/03(木) 10:30:42.30ID:Eig24VSK
このへんの仕組みというか仕様を超わかりやすく解説してくれてるサイトか本みたいなのがあれば世の中が過ごしやすくなってよいのですが・・・
0663デフォルトの名無しさん2014/04/03(木) 11:19:42.03ID:Mk1UvHnq
スレチだったら誘導してください。ごめんなさい。

EXCEL2013を導入したのですが
わずかでも数式がある場合に、数行でもコピペで貼り付けすると
再計算（プロセッサ4個）：N%などと、時間がかかるのですが、解決方法はありますか？

検索で調べてみても、過去情報ばかりでヒットできません。
環境の問題では無いと思ってるのですが、必要であれば指示してください。
0664デフォルトの名無しさん2014/04/03(木) 11:23:35.99ID:Mk1UvHnq
連投すみません。

Workbooks(".xlsm").Activateですが、SDIの影響でWorkbook_Openに記述してもうまく機能しません。
情報はいくつか検索できましたが、解決していないように見えます。
いい方法ありますか？
0665デフォルトの名無しさん2014/04/03(木) 11:49:55.12ID:4gfcVwhu
>>661
その例では混乱することは少ないだろうけど、数式が文字列変数に入っていた場合は
あとでコードを見返した時にセルに何を入れているのかわからなくなる可能性があるので
プロパティは省略すべきではない

また、逆にセルから数式を読み出したい時はプロパティを省略できない
0666デフォルトの名無しさん2014/04/03(木) 12:42:08.56ID:Eig24VSK
>>665
それは
myVal=Cells(r,c).Formula="=IF(B1=C1,D1,E1)"
または
myVal=Cells(r,c).FormulaR1C1="=IF(B1=C1,D1,E1)"
で代入した場合には
変数の型は必ず文字列であり内容も文字列ということですか？
0667デフォルトの名無しさん2014/04/03(木) 13:19:19.03ID:4gfcVwhu
>>666
質問の意味が不明
それからコードがおかしい
それではmyValにBoolean型が代入されてしまう
正しくは

myVal = "=IF(B1=C1,D1,E1)"
Cells(r, c).Formula = myVal

など
myValはString型
0668デフォルトの名無しさん2014/04/03(木) 14:10:31.38ID:Eig24VSK
>>667
あ、式はたしかに＝が2つあって間違ってました。

でも

------------------------------
Sub Unko()
myVal = "=IF(B1=C1,D1,E1)"
ActiveCell.Formula = myVal
Debug.Print ActiveCell.NumberFormat
End Sub
------------------------------

これで試してみると
文字書式はgeneralとでるよ。@じゃなくて。
0669デフォルトの名無しさん2014/04/03(木) 15:59:16.02ID:4gfcVwhu
>>668
根本的にわかってない
セルの書式と代入する値の型は無関係
それから下品な名前は使うな
俺はそういうのが嫌いだからもう教えない
0670デフォルトの名無しさん2014/04/03(木) 16:16:33.02ID:Eig24VSK
(^ _ ^)
0671デフォルトの名無しさん2014/04/05(土) 20:03:54.99ID:eYN2DOjD
VBAをVBE以外で書きたいんですけれども、誰かVBE以外のエディターで開発されてる方いますか？
いる方は、何をお使いになってますか？

VBEで以下の不満があり、関数のアウトライン機能がないこと、列挙体変数をTabで選択せずそのまま入力するとその入力された変数名に変更されてしまうなどがあり、困ってます
0672デフォルトの名無しさん2014/04/05(土) 20:52:49.41ID:vxn3S8/H
>>671
VisualStudioのVBのエディターで書いてからコピペとかたまにやるけど常用はしてない
普段は普通のテキストエディター
0673デフォルトの名無しさん2014/04/06(日) 00:14:11.80ID:6QPkQ4Uq
>>672
なるほど、確かにVSのアウトライン機能は便利ですもんね…
でもアウトライン機能を常用出来るようなテキストエディタはやはりないんですかね
ありがとうございます。
0674デフォルトの名無しさん2014/04/06(日) 20:31:36.34ID:SRPo3hu2
arduinoからのシリアルデータをexcelに自動で書き込んでくれるvba作ったのですが
なぜか途中で入力セルが勝手に変えられてしまいます

MSComm1.InputMode = comInputModeText
rdat = MSComm1.Input2
Sheet3.Cells(InputRow, 11) = rdat　//シリアルデータをセルに入力
InputRow = InputRow + 1

1023,964
と入力されるべきところになぜか
1
23,964
とか
12
3964
になってしまいます

似たような方いらっしゃらないでしょうか
0675デフォルトの名無しさん2014/04/06(日) 21:05:33.20ID:X8q2hYwd
>>674
オーバーランしてるんじゃねーのか？
まずは、Debug.Print rdat して、読み取りがおかしいのか、セルが書き変わってるのか切り分けなよ。
0676デフォルトの名無しさん2014/04/06(日) 21:38:35.38ID:SRPo3hu2
>>675
イミディエイトには
511,476
511,476
5
11,476
となってるので読取がおかしくなっているようです
0677デフォルトの名無しさん2014/04/07(月) 00:32:05.86ID:6QjlBT3T
MSComm1.InputMode = comInputModeText
rdat = MSComm1.Input2
Debug.Print rdat
を実行した結果が↓のようになりました

510,475,442,413,392,379,337,325であるべきところが
510,
475,442,413,392,379,337,325
となってしまいます
いつも起きてるわけではなく９割ぐらいがこうなります
送られてくるデータは最大40文字の文字列なのでStringの容量からはみ出ることはないのですが・・・

rdatからReplaceを使ってvbCrやvbLfを置換しても文字列の改行はなくなりませんでした・・・
これはもうMSCommの仕様でしょうか
0678デフォルトの名無しさん2014/04/07(月) 01:09:45.66ID:cIwL+5uV
>>677
バイナリで改行コードをチェック
0679デフォルトの名無しさん2014/04/07(月) 18:12:05.76ID:NRYmRN39
バイナリで保存してみたところ中身に改行コードはありませんでしたが
テキストファイルで保存すると改行されています
0680デフォルトの名無しさん2014/04/07(月) 19:44:01.79ID:cIwL+5uV
改行される部分に改行以外の何かのデータが入ってない？
文字列の先頭から文字コードを順番に表示させてみ
0681デフォルトの名無しさん2014/04/09(水) 02:10:23.95ID:Zgg01Tu3
IIF(data=0, 0, 1/data)
dataが0だとエラーになります。回避するには大人しくIf elseにするくらいしかないですか？
0682デフォルトの名無しさん2014/04/09(水) 02:48:42.35ID:rPGWVgOi
>>681
回避する方法はほかにもある
たとえばOn Errorとか、IIfの入れ子とか
Ifで書く場合もElseは必須じゃないし
0683デフォルトの名無しさん2014/04/09(水) 02:59:54.43ID:BMFTF5hJ
>>681
VBAはショートサーキットしないから、素直にIFネストしといたら良いんじゃね
セルに計算式埋め込んでIfErrorとかIsErrorとか使えば何とかなるかもしれんが
0684デフォルトの名無しさん2014/04/09(水) 03:30:52.75ID:rPGWVgOi
>>683
今回のIIfのエラーとショートサーキットは関係ない
IIfは単なる関数だから、呼び出し前にすべての引数が評価されるだけのこと
0685デフォルトの名無しさん2014/04/09(水) 04:08:35.13ID:Zgg01Tu3
レスありがとうございます。
IIFの入れ子だけでエラー回避出来るんですか？思いつかないです。ヒント下さい。
0686デフォルトの名無しさん2014/04/09(水) 04:18:43.85ID:rPGWVgOi
>>685
ヒントは>>684
IIfは関数だってこと

まず機能限定でいいからIIf関数を自分で作ってみ
0687デフォルトの名無しさん2014/04/09(水) 05:58:06.04ID:eVaBF0ya
>>681
0除算の時どうしたいかによるけど、
1/dataの部分を、たとえば
dataが0なら0を返却する様な
関数をかませる方法もあるよ。
ただ、
処理の遅いiifをそこまでして使うほどのメリットを感じないけど。
0688デフォルトの名無しさん2014/04/09(水) 17:55:19.77ID:rPGWVgOi
>>687
元の質問>>681によると、data=0の時は結果も0にしたいようだ
俺も素直にIfで書いた方がいいと思うけどな
0689デフォルトの名無しさん2014/04/11(金) 12:28:29.65ID:yZ8wKwaw
sheet1にボタン1を配置したんですがボタン1_click()を標準モジュールではなくsheet1のシートモジュールとして書くことは出来ないのでしょうか？
0690デフォルトの名無しさん2014/04/11(金) 14:48:21.85ID:z4/PIhu7
>>689
Sheet1モジュールに Sub ボタン1_click() を書いてボタンに登録
Privateにしたければボタンに登録後に Private Sub ボタン1_click() と Private を追加しておく。

またはSheet1モジュールに Private Sub ボタン1_click() を書いてからボタンのマクロ名に「Sheet1.ボタン1_click」と手書きする
0691デフォルトの名無しさん2014/04/15(火) 04:16:36.29ID:A/HjwMLt
モジュールレベル変数やプロシージャレベルのstatic変数をリセットするため
マクロが実行終了してもモジュールがリセットされない限り値が残っているので
強制的にモジュールをリセットしたいです。どうすれば良いですか？
0692デフォルトの名無しさん2014/04/15(火) 06:26:32.57ID:rPikCPob
>>691
Excelを再起動するか、変数を初期化するためのプロシージャを用意する
0693デフォルトの名無しさん2014/04/15(火) 10:36:04.14ID:5oqUCn8p
プロシージャレベルのstatic変数って
なんのために／どういうときに、使うんですか？
0694デフォルトの名無しさん2014/04/15(火) 11:37:46.86ID:9lgaoMnA
>>693
スコープはそのプロシジャでいいが、寿命がプロシジャと同じでは困る時
たとえばそのプロシジャが呼ばれた回数を数えるときとか便利
0695デフォルトの名無しさん2014/04/15(火) 11:53:56.64ID:5oqUCn8p
>>694
それならstaticとか変な概念を1つ導入するなんてことはせず
モジュールレベルの変数を使ったら良くないですか？

マッチ1本火事のもと。
あたらしい概念の導入は混乱のもと。
0696デフォルトの名無しさん2014/04/15(火) 12:47:45.68ID:rPikCPob
>>695
新しい物に順応できないジジイは死ぬまでアセンブラだけ使っててくだちい
0697デフォルトの名無しさん2014/04/15(火) 13:41:44.59ID:9lgaoMnA
新しい概念って
static変数はVBがオブジェクト指向になる以前からあるんだがな
0698デフォルトの名無しさん2014/04/15(火) 14:08:55.72ID:s8o/Oo49
別なエクセル立ち上げて操作すると動作がおかしくなるvbaなんか糞だろ
0699デフォルトの名無しさん2014/04/15(火) 16:22:28.15ID:820VGCAb
じゃ、使わなければいいじゃん
0700デフォルトの名無しさん2014/04/15(火) 16:26:47.79ID:rPikCPob
欠点のない言語、環境なんて存在しないのにね
叩きたいだけだろ
0701デフォルトの名無しさん2014/04/15(火) 23:40:57.35ID:Qecud56U
メソッド内のstaticなんて
C++にはあるけどJavaにもC#にも無いんだから
むしろ時代遅れの概念だろ。
0702デフォルトの名無しさん2014/04/16(水) 04:06:05.87ID:LmxlsNa2
>>692
「このアクションを実行するとプロジェクトがリセットされます。実行しますか ?」
このメッセージが出るようなコードを最初に強制的に行いたいのですが出来ませんかね。

>>693
再帰のときとかに使ってます。
0703デフォルトの名無しさん2014/04/16(水) 08:30:53.84ID:C8nNiAQg
>>701
> C++にはあるけどJavaにもC#にも無い

バカには使いこなせないということ (w
0704デフォルトの名無しさん2014/04/16(水) 12:19:39.65ID:XF2c1vIX
>>702
プロジェクトをリセットする方法は色々ある
基本的なことはここを参考に
http://www.moug.net/tech/exvba/0150116.html
■ このスレッドは過去ログ倉庫に格納されています