[過去ﾛｸﾞ]
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1432173164/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
142: デフォルトの名無しさん [] 2016/02/24(水) 21:04:30.98 ID:faCUrUaa 141507 140712 140715 141512 141207 141215 140708 140709 141508 140807 140703 141509 140815 141503 141208 140907 140315 141209 140915 141203 競馬の三連単の買い目がこのようにある時、マークシート記入枚数を減らすために 14-7,12,15-3,7,8,9,12,15 14-8,9-7,15 140315 とまとめたいのですが、どのように処理すればよいでしょうか？ いずれは金額も考慮したいと考えていますが、現段階では難易度を下げるために同一金額としてください。 同じ理由でここでは頭を固定で例を作成させていただきました。 よろしくお願いします。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/142
388: デフォルトの名無しさん [sage] 2017/09/23(土) 07:50:16.98 ID:nAanI8EG そもそも計算量も最少じゃないしな 普通に 最小値 = x If y < 最小値 Then 最小値 = y If z < 最小値 Then 最小値 = z ってやる方がわかりやすい http://mevius.5ch.net/test/read.cgi/tech/1432173164/388
464: デフォルトの名無しさん [sage] 2017/12/09(土) 22:22:36.98 ID:kQB3PqQK >>463 変数objMeを宣言している行の直前に以下の処理を追加 Item.BCCプロパティに設定されている文字列を取得して、その中にdomonなんたらっていうアドレスが含まれているかどうかをInStr関数で調べる 含まれていたらExit Sub http://mevius.5ch.net/test/read.cgi/tech/1432173164/464
523: デフォルトの名無しさん [sage] 2018/03/07(水) 09:34:45.98 ID:1c1zt9Ui >>522 0も1回と数えるから、i が0の時に1回、1の時に1回、合計で2回です For i = 1 To tmp にすれば1回になるよ http://mevius.5ch.net/test/read.cgi/tech/1432173164/523
910: デフォルトの名無しさん [sage] 2019/08/14(水) 15:00:22.98 ID:Jc+eFMLQ ここで質問していいかわからないんですが、違ったら誘導していただけると助かります。 メッセージボックスを最前面にするために以下のコードを利用したいのですが、呼び出し元の下から3行目のvbOKOnly を vbYesNo に替えた後、選択ボタンを取得する方法がわかりません。 どのようなコードを足したらいいかご教示いただけないでしょうか。 【呼び出し元】 Option Explicit Dim WSHObj Dim Args Set WSHobj = WScript.CreateObject("WScript.Shell") Args = "cscript ""C:\Program Files\PPX\script\WSHPopUP.vbs""" _ & " ""出力メッセージ""" _ & " 0" _ & " ""VBS名称""" _ & " " & vbOKOnly ←vbYesNoに替える WSHObj.Run Args,0,true Set WSHobj = Nothing 【WSHPopUP.vbs】 Option Explicit Dim Arg Dim WSHObj Set WSHobj = WScript.CreateObject("WScript.Shell") Set Arg = WScript.Arguments WSHObj.Popup Arg(0),Arg(1),Arg(2),Arg(3) Set WSHobj = Nothing よろしくお願いします。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/910
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.031s