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

Excel VBA 質問スレ Part37 [転載禁止]©5ch.io

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん2015/01/10(土) 07:06:30.56ID:2VZ4g5kC
ExcelのVBAに関する質問スレです

                   ___
       ___      /____ヽ      ____
      /____\    | |´・ω・`| |    /___ヽ
      .l |´・ω・`|  ニX二 . ̄ ̄ ̄  二X二  |´・ω・`| l 俺たちに任せろ
      !、 ̄ ̄ ̄  ヽ   |       |    /    ̄ ̄ ̄/
       ヽ_/ヽ、  ヽ__)  \__/\_/.   /_/  ノヽ_/
             ̄                ̄ ̄

このスレはコード書き込みOKです。
作成依頼もOKですが、作成依頼限定ではありません。

コードが嫌な人は別スレ建ててください。

※前スレ
Excel VBA 質問スレ Part36 [転載禁止]©2ch.net・
http://peace.2ch.net/test/read.cgi/tech/1419718732/

※頭のレスの方でキチガイが束縛テンプレを貼る詐欺行為が前スレまで散見されましたので、十分にご注意ください。
0002デフォルトの名無しさん2015/01/13(火) 14:17:34.52ID:l9CvqMDc
四十年勤め上げた會社を退職し早二十年、何やら張り合いの無い日々を送る内、大學生の孫に「退屈しのぎに遣って見たまへ」と勸められた弐チヤンネル。
當初は「こんな電腦掲示板、何たる幼稚加減」と莫迦にしてゐたものの、遣つて見ると存外に面白ひ。
華やかな色彩の髪と目を持つうら若き乙女に「ゆとり乙」と何度と無く罵られるにつけ、食ふや食はずやで慌しく過ぎ去つた學生時代が自ずと思ひ返され、「戰爭さえ無ければ、小生もこのやうな青春が送れたやも知れぬ」と獨りごちることも屡々。
すつかり虜となつた今では、孫の部屋から白銀色の電腦計算機をせしめては書齋に篭もり存分に「祭り」を堪能する毎日を送つている。
「小四女兒遺棄事件」なるスレツドを拜讀した際には、その餘りに不憫な境遇と過酷な運命に落涙し、臺所で葱を刻む家内に「かような理不盡が許されていいものか!」と熱辯を振るって呆れられる始末。年甲斐もない、とはこのことと後で赤面することしきり。
下手の横好きとはいえ「繼續は力なり」の言葉通り、最近ではブラクラの回避やコピペの管理にも慣れ、「好きこそものの上手なれ」を座右の銘として弐ゲツトに勵んでいる。
同年代の友人達が癡呆や重い病に惱まされるなか、老いて尚矍鑠としてオフ會に向かえるのも、ひとえに弐チヤンネルのおかげかと思えば、再三に渡る「半年ROMつてろ」の罵り文句も、何やら「まだまだ死ぬには早いよ」と言われているようで愉快極まりない。
ひとつ間違えれば自らが乗り込んでいた機體と同じ名前を持つコテハンに出會える日を樂しみにしつつ、今日もデスプレヱに向かう。
それでは、弐ゲツト。
0003デフォルトの名無しさん2015/01/13(火) 20:21:25.89ID:GlIqiIHJ
しかしこいつが荒らしでなかったとしたらずっと教えて君でへばりついてることになるが
どんだけ頭悪いんだよ
0004デフォルトの名無しさん2015/01/24(土) 16:23:21.17ID:xRwObAQk
はいざんねーん

Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
http://peace.2ch.net/test/read.cgi/tech/1420790342/l50
0005デフォルトの名無しさん2015/04/01(水) 20:00:11.48ID:/egDYYol
ここプログラマ:非プログラマは1:2位かな?
0006デフォルトの名無しさん2015/04/01(水) 21:50:18.58ID:by1Nk6ea
>>5
前スレで、ここ使っておけばいいんじゃない?とか言っといて何なんだけど、まだ未消化のスレがあったわ

Excel VBA 質問スレ Part36 [転載禁止]©2ch.net・
http://peace.2ch.net/test/read.cgi/tech/1419718732/

こっちが先だな
0007デフォルトの名無しさん2015/04/06(月) 16:22:48.77ID:R0FU2E8+
Sub Test1()から呼び出したいSub Test2()があるんだけど
このTest2というのは必ずTest1の中からしか呼び出されないから
Test1とTest2を並列に並べる感じじゃなくて
Test1の内部にTest2に位置させる構造みたいにすることはできないですか?
0008デフォルトの名無しさん2015/04/06(月) 16:23:35.95ID:R0FU2E8+
× Test1の内部にTest2に位置させる構造
○ Test1の内部にTest2を位置させる構造
0009デフォルトの名無しさん2015/04/06(月) 16:52:48.52ID:PufGX+Fr
>>7
意味不明
0010デフォルトの名無しさん2015/04/06(月) 17:03:46.81ID:R0FU2E8+
>>9
意味がわからないのはプログラミング経験が少ないからだよ
0011デフォルトの名無しさん2015/04/06(月) 17:04:40.63ID:R0FU2E8+
JavaでいうインナーClassみたいな感じだ。
0012デフォルトの名無しさん2015/04/06(月) 17:50:46.40ID:iaxKA84j
予想屋かよ
0013デフォルトの名無しさん2015/04/06(月) 18:14:20.93ID:9rihMm0H
>>7
内部に配置は無理だから
Test1とTest2を同じ標準モジュールに定義して
Test2をPrivateにしとけばいいんじゃね
0014デフォルトの名無しさん2015/04/06(月) 18:22:01.26ID:F3YvzXsi
>>13
多分、それは分かってて、わざわざ>>7みたいな事をしたいって事なんだろう
それに何の意味があるのかは知らんが
0015デフォルトの名無しさん2015/04/06(月) 18:41:30.28ID:V7u5im+A
>>7
推奨されない方法だけど こゆこと?
http://officetanaka.net/excel/vba/statement/GoSubReturn.htm
0016デフォルトの名無しさん2015/04/06(月) 21:17:56.24ID:6qozZbmR
Object指向言語なら
0017デフォルトの名無しさん2015/04/06(月) 21:21:39.89ID:6qozZbmR
Object指向言語ならInnerClassやDelegateを使えばまぁ、それっぽい小洒落たものを作ることは出来るけど、
VBAではそう言うのないし、GOSUBは余りお勧め出来ない。
Test1以外から呼ばなきゃいいじゃんと言うのが結論。
0018デフォルトの名無しさん2015/04/06(月) 23:58:22.10ID:PqbjMR/u
>>11
ここはVBAのスレだからVBAで説明してくれ
0019デフォルトの名無しさん2015/04/07(火) 05:37:09.40ID:T6jm7qcv
だから先にこっち使ってくれ

Excel VBA 質問スレ Part36 [転載禁止]©2ch.net・
http://peace.2ch.net/test/read.cgi/tech/1419718732/
0020デフォルトの名無しさん2015/04/10(金) 13:14:42.52ID:Ayhlqbgx
プロシージャ間で値をやり取りすることが多いんですが、
モジュールレベル変数で宣言するのとcall byvalで参照渡しするのと
処理速度的にはどっちが速いですか?

プロシージャ間の行き来は数十万回レベルです。
同一プロシージャに書けばいいんでしょうけど…
0021デフォルトの名無しさん2015/04/10(金) 13:56:56.78ID:qqTdbdnb
>>20
実測すれば解決するよ
0022デフォルトの名無しさん2015/04/10(金) 16:22:02.68ID:Ayhlqbgx
>>21
適当に作ったマクロで実測してみた。

Call Byvalのほうが1.5倍近く遅いようだ。
0023デフォルトの名無しさん2015/04/10(金) 18:49:19.21ID:qqTdbdnb
>>22
宗教上の理由でByValをデフォルトとしたくて、その実行時間の差が許容できる範囲なら
そうすればいいし、特にこだわりがなければByRefをデフォルトとすればいいってことだね。
0024デフォルトの名無しさん2015/04/11(土) 15:57:52.11ID:Di7hwpD1
ByValで参照渡しってどういう意味?
参照渡しならByRefだよね?
0025デフォルトの名無しさん2015/04/11(土) 18:00:30.31ID:j7Y/pu4p
さすがにそこは流してはいけないところw
0026デフォルトの名無しさん2015/04/11(土) 18:39:12.87ID:QOc8rwlG
参照渡しの値渡しのことじゃないの?
0027デフォルトの名無しさん2015/04/11(土) 18:56:22.02ID:tS4MnGx5
ここは矢切の渡しとボケないといけないとこだろ
0028デフォルトの名無しさん2015/04/12(日) 23:06:14.03ID:PTItGJj5
渡しバカよね〜 おバカさんよね〜
0029デフォルトの名無しさん2015/04/15(水) 12:45:03.10ID:s88AraXc
12桁の数字で1の位がモジュラス11ウエイト2〜7のチェックデジットに
なっていて、そのデータが正しいかどうか調べるコードを書きましたが、
@の照合が機能しません。ご指導よろしくお願いします。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Variant, s As Variant, checkdigit_m11 As Variant

For i = 0 To Len(Cells(1, 1)) - 2

s = s + Mid(Cells(1, 1), Len(Cells(1, 1)) - 1 - i, 1) * (i Mod 6 + 2)

Next

If s Mod 11 <= 1 Then
checkdigit_m11 = 0
Else
checkdigit_m11 = 11 - s Mod 11
End If

Cells(2, 1) = checkdigit_m11

'@チェックデジットの照合

If Right(Cells(1, 1), 1) = checkdigit_m11 Then
MsgBox ("OK!")
End If


End Sub
0030デフォルトの名無しさん2015/04/15(水) 16:11:34.91ID:VbMyd246
だから先にこっち使ってくれ

Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
http://peace.2ch.net/test/read.cgi/tech/1419718732/
0031デフォルトの名無しさん2015/04/15(水) 16:27:49.21ID:32OEEOG2
>>30
そちらのスレは荒らしが立て逃げした糞なスレだよ。
本来落として置かなければいけなかったものだ。
0032デフォルトの名無しさん2015/04/15(水) 17:38:42.58ID:VbMyd246
>>31
どうでもいいってか、どっちかと言うと荒らしが立てたのは
http://peace.2ch.net/test/read.cgi/tech/1420790342/l50
のほう
(実質的にこのスレの前々スレとして機能したけど、
本来は>>30で書いたスレのほうが先にたってた)
0033デフォルトの名無しさん2015/04/15(水) 21:40:21.80ID:uwjeRs/E
一時期酷かったもんな。やれコードは書くなとかヒントにとどめておけとか

結局テンプレを盾にとって1人が暴れていただけだったんだよな

今考えてみると「こうあるべき」と押し付ける荒らしの走りだったのかもな
0034デフォルトの名無しさん2015/04/18(土) 15:22:06.34ID:G8uXmJk6
vbaの変数名の合理的命名ルール教えてくれるところ無い?
本でも可。
カビの生えたおじいちゃんの価値観で染まったのはNG。
0035デフォルトの名無しさん2015/04/18(土) 15:39:26.25ID:mSwoExrO
>>34
そんなものはないし、お前のような馬鹿じゃ何やっても無駄
0036デフォルトの名無しさん2015/04/18(土) 17:16:49.33ID:vWBjvHtT
ロートルがファビョっとるw
0037デフォルトの名無しさん2015/04/26(日) 16:04:49.69ID:IDXPl2M+
最近VBAを勉強し始めたんですけど
=
:=
の違いは何ですか?
上は右辺を左辺に代入
下は何ですか?
0038デフォルトの名無しさん2015/04/26(日) 16:17:52.04ID:P1ipXLUA
http://www.relief.jp/itnote/archives/001014.php
「:=」(コロン・イコール)ってどういう意味?−名前付き引数

ぐぐれば判ることを聞こうとする辺り勉強する気ナッシングですね
0039デフォルトの名無しさん2015/04/26(日) 16:41:14.62ID:PlxCC65O
そう言いながら教えてやるおまいも屑
0040デフォルトの名無しさん2015/04/26(日) 18:22:52.99ID:se3i9COa
この程度の質問は田中さんに聞けよ



カルチャーブレーンの
0041デフォルトの名無しさん2015/05/03(日) 20:22:20.22ID:OEqGa4+Y
教えてください。
Excelで事務系のフリーウェアを公開してるのですが、全国でどのくらいの本数が動いているのか分かりません。
また、どの機能をどのくらい使われてるのかも分かりません。
起動させた時にこれらの情報を載せたメールを送信させようかとも思ったのですが、一筋縄では行かなそうでした。
利用者の名前や住所を載せるつもりはありませんが、そもそもそんなメールを出させて良いのかどうかも分かりません。
これらの情報を知りたい場合、一般的にどのような方法が取られているのでしょうか?
どうかご教示ください。
0042デフォルトの名無しさん2015/05/03(日) 21:36:32.07ID:7AJkLeM5
>>41
自分がほしい情報をボタン一つでファイルに吐き出せるようにして、メールで送ってもらうとか Web にアップロードできるようにするとか
ただし、俺なら送らないけどな
0043デフォルトの名無しさん2015/05/04(月) 04:00:08.42ID:O720nFZx
>>41
たとえばエクセルには、カスタマ エクスペリエンス向上プログラムと言う機能が組み込まれている
利用者の同意を得てデータを送信させれば良いんじゃね

自作のフリーウェアなら、情報の収集を利用条件にしてもいいんじゃn
俺ならそんなソフト使わんが
0044デフォルトの名無しさん2015/05/04(月) 08:03:17.60ID:MlDjNp+9
>>41
誰一人使って無くても良いじゃん別に
オレ様が素晴らしいソフトをオマエラに提供してやったんだから有り難く使いヤガレ!
って勢いで公開するべきだと思うよ
まれに自発的にお礼や感想要望のメールも来ると思うけど期待はするな
0045デフォルトの名無しさん2015/05/04(月) 08:39:58.31ID:nWEzAIy6
>>41
そういうの

企業のソフトウェアがやるならともかく、フリーウェアで手を出すと確実に
スパイウェア扱いされるでしょうね。下手なことにクビ突っ込まないほうが
身のためですよ。
0046デフォルトの名無しさん2015/05/04(月) 12:49:44.89ID:i+1DbMms
>>41です。

> 俺なら送らないけどな
> 俺ならそんなソフト使わんが
 ですよねー、私もそんなソフト嫌やわ。

> まれに自発的にお礼や感想要望のメールも来ると思うけど期待はするな
 新年版への切り替えの頃になると、丁重なお礼と「はよ新年版出せや(意訳)」メールは度々いただいてます。
 だからこそ、より使いやすいソフトのために…って思いからなんですけどね。

> スパイウェア扱いされるでしょうね。
 いっその事FTP鯖立てて、そこへ密かに情報転送したろかなとかまで思いました。
 けどバレたら確実にスパイウェアですからね。

 変なツール実装するのは止めときます。
 皆さんすいません、ありがとうございました。
0047デフォルトの名無しさん2015/05/11(月) 08:48:57.43ID:AU+j6osa
いまのプログラミング業界(オレの造語)って
配列はほとんど使ってないの?
例えばJavaとかだとコレクションを使う方がはるかに便利だとか。

ExcelのVBAでも配列をやめてコレクションを使ったほうが便利で可読性もよいコードになるのかな?
0048デフォルトの名無しさん2015/05/11(月) 09:17:16.73ID:jciykodT
特にパフォーマンスが要求されないドンガメアプリは好きな方式でいいんじゃないかな?(´・ω・`)
0049デフォルトの名無しさん2015/05/11(月) 09:17:50.67ID:AVa5yrsT
>>47
普通に配列つかったほうがいいよ。
0050デフォルトの名無しさん2015/05/11(月) 11:45:07.74ID:6rZgRYO9
最近の言語は配列じゃないコレクションが充実してるから
それらの言語では配列以外を使う事の方が多くなってる

VBAでは、コレクションが配列より良い場合もないではないけど
ほとんどの場合は配列の方がすっきりすると思うぞ
0051デフォルトの名無しさん2015/05/14(木) 22:31:05.69ID:F7V5bQJf
MsgBoxってあるけど
そうじゃなくて
メッセージをメモ帳を開いてそこに記述するにはどうすればいいのでしょうか?

こうすることでコピペができるなどいろいろ便利と思うので。
0052デフォルトの名無しさん2015/05/14(木) 23:41:41.84ID:dWCGk0JA
ファイルに吐いて>notepad ファイル名
で起動すればいいんちゃうの?

ちなみにMsgBoxはCtrl+Cでクリップボードに入る
0053デフォルトの名無しさん2015/05/15(金) 00:05:07.14ID:F85nAjYz
>>52
そうするとHDDのどこかにファイルを保存せねばならないでしょう。
そうしたくないんだ。
0054デフォルトの名無しさん2015/05/15(金) 05:28:12.57ID:X5a4op11
安定しないけど、Shellで起動してSendKeysとか

まあ俺ならコピペ前提ならそのままクリップボードにデータ入れるが
0055デフォルトの名無しさん2015/05/15(金) 08:29:51.60ID:OMVhwfYU
ちょっと編集してコピーするとかもできるからメモ帳に吐くのはありだと思う
SendKey はいい思い出がないから >>52 に一票
0056デフォルトの名無しさん2015/05/15(金) 17:08:00.10ID:SCDI1Wkq
>>53
log用シート追加して、そこに吐くんじゃダメなの?
そのシート残したくなければクローズ時に削除すればいいかと。
そんな単純じゃない話?
0057デフォルトの名無しさん2015/05/15(金) 17:16:38.65ID:VZDZSKvz
ユーザーフォームのテキストボックスに表示するとか?
0058デフォルトの名無しさん2015/05/16(土) 21:51:20.67ID:jUu32I5W
vbaにパスワード掛けても簡単に破られるじゃあないですか?
vbaで開発したものを有料の製品として販売している人や会社は、パスワードを破られてしまうとノウハウを簡単に盗まれてしまうという事ですよね。
それって、何か対策は有るんですか?
0059デフォルトの名無しさん2015/05/16(土) 22:15:03.75ID:Yi4ECWX2
どうやってパスワードを見破るんですか?
0060デフォルトの名無しさん2015/05/16(土) 23:23:55.08ID:HH6fpt1X
同じVBAを使う者としてとても心が痛むが、
できてしまう以上はその誘惑に勝てない。
0061デフォルトの名無しさん2015/05/16(土) 23:40:40.79ID:Yi4ECWX2
そのやりかたを聞いておるのだ
0062デフォルトの名無しさん2015/05/17(日) 00:29:03.42ID:TXM5pNIr
>>53
Linuxには、メモリ上だけに存在するファイルシステム、tmpfs とか、

tmp ディレクトリに、ファイルを作って書き込めば、
システム終了時に自動的に、
作ったファイルを消してくれる、などの機能がある

Win にはそういう機能は無いの?
0063デフォルトの名無しさん2015/05/17(日) 00:34:12.22ID:prFKBwN9
>>61
Google先生に聞いてね。
78とか76とか、いろいろめんどうだけどね。
0064デフォルトの名無しさん2015/05/17(日) 16:21:48.28ID:B0Fe1+FI
VBAで : が使われる場所って、
文字列の中を除くとあとは
GOTO Label:
くらいでしょうか?
0065デフォルトの名無しさん2015/05/17(日) 16:50:07.35ID:nnFlbvVf
>>64
名前付き引数の指定で使う

http://www.relief.jp/itnote/archives/001014.php
引数の指定方法には、標準引数と名前付き引数という2種類の方法があります。

▼標準引数を使った例
WorkSheets.Add ,,5

▼名前付き引数を使った例
WorkSheets.Add Count:=5
0066デフォルトの名無しさん2015/05/17(日) 16:53:28.95ID:lnYJDjFz
なぁ、ぼちぼち前スレに移動してくれないか?

Excel VBA 質問スレ Part36 [転載禁止]©2ch.net・
http://peace.2ch.net/test/read.cgi/tech/1419718732/
0067デフォルトの名無しさん2015/05/17(日) 19:14:25.16ID:fv8Y2qXy
>>64
マルチステートメント(の区切り)に使う
0068デフォルトの名無しさん2015/05/17(日) 20:20:17.19ID:B0Fe1+FI
>>65>>67
詳しい解説、有難うございました。
この2例以外にはもう無いでしょうか?
0069デフォルトの名無しさん2015/05/19(火) 12:05:13.92ID:NTe3EXZz
Excel x97m_sugar.dの作り方を教えてください。
0070デフォルトの名無しさん2015/05/19(火) 23:05:06.59ID:Y2eIQ7MR
Excelのx97m_sugar.dの作り方は教えてあげないでください。
0071デフォルトの名無しさん2015/05/20(水) 00:01:24.67ID:HCLyDu6k
Excelのx97m_sugar.dの作り方が教えてあげられません。
0072デフォルトの名無しさん2015/05/30(土) 00:10:11.41ID:uAz+OfzT
VLOOKUPの列入力で質問です。

一つのセルに「=(VLOOKUP($検索値,$範囲,列,FALSE)+(VLOOKUP($検索値,$範囲,列,FALSE)+(VLOOKUP($検索値,$範囲,列,FALSE))」と入れてるのですが、列を連続で入れたいです。

A1セルに=(VLOOKUP(検索値,範囲,1,FALSE)+(VLOOKUP(検索値,範囲,2,FALSE)+(VLOOKUP(検索値,範囲,3,FALSE))」
A2セルに=(VLOOKUP(検索値,範囲,4,FALSE)+(VLOOKUP(検索値,範囲,5,FALSE)+(VLOOKUP(検索値,範囲,6,FALSE))」
A3セルに=(VLOOKUP(検索値,範囲,7,FALSE)+(VLOOKUP(検索値,範囲,8,FALSE)+(VLOOKUP(検索値,範囲,9,FALSE))」..............と自動入力したいです。

COLMUN関数を列に入れてみましたが、そうすると
A1セルの列が、1,2,3
A2セルの列が、2,3,4
A3セルの列が、3,4,5と希望通りになりませんでした。

お助け下さい。
0073デフォルトの名無しさん2015/05/30(土) 00:17:17.37ID:mU8J0Ylc
ここは VBAのスレですよ?
0074デフォルトの名無しさん2015/05/30(土) 00:24:06.68ID:4IPDAfwH
>>72
ROW()*3-2+COLUMN()
0075デフォルトの名無しさん2015/06/02(火) 23:40:59.47ID:iC0H3P5x
Application.EnableEvents = Falseで、
別のブックのイベントを停止させることはできるの?

どうもできないように思うのだが。
0076デフォルトの名無しさん2015/06/03(水) 04:24:08.92ID:+cwo1qGY
>>75
2007で試してみたが
普通にやると複数ブック開いてもExcelのプロセスは一つなので
全てのブックのイベントが停止するっぽい

別プロセスで開いたブックでなら
そのプロセスに対応するApplicationで指定すれば
そのブックだけ停止出来てるようだ

Dim ap As Application
Dim wb As Workbook
Set ap = New Excel.Application
ap.Visible = True
Set wb = ap.Workbooks.Open("w:\book1.xlsm")
wb.Application.EnableEvents = False
こんな感じでテストしてみた
0077752015/06/03(水) 14:31:44.71ID:fXq4Zk1N
>>76
Resありがとう。
確かにExcel2010で複数のExcelファイルを同じWindowで開いたら、
1個のブックでApplication.EnableEvents = False とすれば、
全てのブックのイベントが停止すると思う。

しかし、複数のExcelファイルを別のWindowで開いたら、
1個のブックでApplication.EnableEvents = False としても、
別のWindowのブックのイベントを停止できないのです。

なお、Excel2010で別のWindowで開く方法は、
新たにExcelブックを立上げ、そこにExcelファイルをDrug&Dropするのです。
Excel2013はDefaultで別のWindowで立ち上がりますが、
2010や2007は同じWindowで立ち上がります。
0078デフォルトの名無しさん2015/06/03(水) 20:08:13.04ID:ZKJDLKuD
Sheet2に編集済みの文字列はform上に張り付けたコンボックスで下記のコードで読めたしシートの書き込みができた。
でも問題はformを利用せずSheet1に張り付けたコンボックスまたはリスト
で同じSheet1に編集済みの文字列A1:B1を複数表示選択して同じSheet1の
セルA10:A11に書き込みたいが、どうしてもオブジェクトエラーになる。
シート上でのコンボックスまたはリスト利用は制限がでるのですかね?
'form上からコンボックスでセル参照
Private Sub UserForm_Initialize()

Dim lRow As Long
With Worksheets("Sheet2")
lRow = .Range("A" & Rows.count).End(xlUp).Row
End With
With ComboBox1
.ColumnCount = 3
.ColumnWidths = "50;50;50"
.RowSource = "Sheet2!A18:B" & "A24"
End With
End Sub
'シートに連続書き込み
Sub test(kazu As Integer, mode As Integer)
’前処理コード
Do
  bs.LineStyle = xlContinuous
bs.Weight = xlThick
Range(Mid(W_Right, 1, 1) & CStr(count)).Value = UserForm1.ComboBox1.List(ListNo, 0)
Range(Mid(W_RightPlas, 1, 1) & CStr(count)).Value = UserForm1.ComboBox1.List(ListNo, 1)

count = count + 1

Loop Until count = count_end
end sub
0079デフォルトの名無しさん2015/06/03(水) 20:18:44.73ID:+cwo1qGY
>>77
いやだから、別のプロセスで開いたらその対応するApplication操作しろって言ってるんだが
問題はどうやってそのブックへの参照を得るかだが、自分で立ち上げるなら実例は示した
2013でどうなってるか知らんが、あとは自分で考えろ

あとWindowとプロセスの区別ついてないっぽいけど
Windowが別だからってプロセスが別だとは限らんぞ

2013からMDI廃止らしいけど、プロセスも別なのがデフォになったのかねぇ
0080デフォルトの名無しさん2015/06/03(水) 22:56:11.47ID:ZxJD2qlU
Office 2013ではWordもExcelもSDIに
ttp://www.relief.jp/itnote/archives/018148.php

便利なのか不便なのか分からん。
ブック間の不作為なリンクを避けられるなら仕方ないが、勝手にリンクする上にApplicationを取得しないと別のブックが見えないとかだったら嫌だな。
0081デフォルトの名無しさん2015/06/06(土) 00:01:08.07ID:JzYI2Rbi
Applicationて名前なのにWindowが別だと別物とかとんでもない罠だな
Excel作ってる人はバカなのかな
0082デフォルトの名無しさん2015/06/06(土) 08:30:57.59ID:nnpJvQGY
>>81
少なくともお前よりは頭いいよ
0083デフォルトの名無しさん2015/06/06(土) 09:03:14.59ID:JzYI2Rbi
Excel作ってる人いたwww
0084デフォルトの名無しさん2015/06/12(金) 11:53:50.80ID:P3g0DnhS
997 デフォルトの名無しさん sage 2015/06/12(金) 03:53:05.71 ID:V1caHJYS
>>988
後ろゼロ埋めして長さ揃えてソートして、その順に元の文字連結する

それ題意に合ってない。
例えば 3 < 31 になっちゃう
0085デフォルトの名無しさん2015/06/12(金) 13:22:48.26ID:3WPnrkkp
ゼロで埋めずにその数字の最後の桁の数で埋めればいいんじゃね?
たとえば
72 と 568 だったら 72 を722 にするの
0086デフォルトの名無しさん2015/06/12(金) 14:55:54.39ID:nFg05tfI
文字列にして降順ソートで
0087デフォルトの名無しさん2015/06/12(金) 17:29:03.95ID:9iuD3EDL
>>86
正解
0088デフォルトの名無しさん2015/06/12(金) 17:36:58.20ID:P3g0DnhS
>>86
だからそれだと 3 < 31 になっちゃうんじゃないの?
0089デフォルトの名無しさん2015/06/12(金) 20:29:11.94ID:aMl82aru
>>85
多分それで上手く行くと思う。
0090デフォルトの名無しさん2015/06/12(金) 21:00:11.26ID:P3g0DnhS
最初に全体をなめて桁数の上限を求めんとあかんの?
0091デフォルトの名無しさん2015/06/12(金) 21:03:00.99ID:P3g0DnhS
つか
https://blog.svpino.com/2015/05/08/solution-to-problem-4
0092デフォルトの名無しさん2015/06/12(金) 21:03:54.12ID:aMl82aru
>>90
そこは本題の論点じゃなさそうだから、どっちでもいいんじゃない?
0093デフォルトの名無しさん2015/06/12(金) 21:10:46.93ID:aMl82aru
>>91
すまん、じじいだから英語分からんし、VBAしか分からん。
VBAのスレだからVBAに直して教えてくれ。
0094デフォルトの名無しさん2015/06/12(金) 21:25:28.34ID:P3g0DnhS
>>93
おれは多分あんたよりずっとじじいだと推測するが教えよう。
aとbが数値型だとして、このふたつを比較するのに、 CStr(a) & CS
tr(b) と CStr(b) & CStr(a) の比較に帰着させようってことだ
0095デフォルトの名無しさん2015/06/12(金) 22:03:15.51ID:hZ3veipK
>>94
なるほどね。どっちの方が効率いいんだろうな。
0096デフォルトの名無しさん2015/06/13(土) 04:27:57.02ID:ds8D2Sdy
>>91のURLが見れないんだが
0097デフォルトの名無しさん2015/06/13(土) 10:20:57.75ID:YcieRO9y
あれれ?おかしいですよ。

Dim i as Integer = 5

みたいに宣言と代入を同時にできなかった?
0098デフォルトの名無しさん2015/06/13(土) 10:51:54.20ID:P6q2Jefi
もしかしてだけど?(´・ω・`)
as じゃなくて As じゃないかな?(´・ω・`)
0099デフォルトの名無しさん2015/06/13(土) 10:54:17.52ID:YcieRO9y
>>98
それは関係ないみたいですよ
0100デフォルトの名無しさん2015/06/13(土) 10:55:47.86ID:aBb0zzsM
できない
constだと宣言と同時に代入できるってか代入が必須
0101デフォルトの名無しさん2015/06/13(土) 10:56:07.32ID:yb+K2D/k
Const j as Integer = 5 みたいに定数宣言ではできるけど

http://www.dotup.org/uploda/www.dotup.org365418.jpg

コンパイルエラー
■ このスレッドは過去ログ倉庫に格納されています