Excel VBA 質問スレ Part51
: デフォルトの名無しさん (スププ Sd4a-O827) [] 2017/11/08(水) 11:26:30.13:+KUB1/9hd スレ立ての際は一行目に !extend:checked:vvvvv:1000:512 と入れてスレ立てして下さい ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※関連スレ VBAなんでも質問スレ Part2 ttp://mevius.2ch.net/test/read.cgi/tech/1432173164/ Access VBA 質問スレ Part1 ttp://mevius.2ch.net/test/read.cgi/tech/1328536426/ Excel総合相談所 126 ttps://mevius.2ch.net/test/read.cgi/bsoft/1496487719/ ※前スレ Excel VBA 質問スレ Part50 ttp://mevius.2ch.net/test/read.cgi/tech/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured 👀 Rock54: Caution(BBR-MD5:0be15ced7fbdb9fdb4d0ce1929c1b82f) : デフォルトの名無しさん (スププ Sd62-O827) [] 2017/11/08(水) 11:28:45.81:+KUB1/9hd 早速質問 今vbaでマップ使って とある表の集計を行なっております 一つのkeyに対しアイテムが複数あるので 配列で入れようと思ったのですがうまくいきません 何か良い方法はありませんか? : デフォルトの名無しさん (エーイモ SE8d-dVlt) [sage] 2017/11/08(水) 18:45:21.53:oD3+O0e3E Dim dic Dim a() redim a(1) a(0)="test1" a(1)="test2" Set dic = CreateObject("Scripting.Dictionary") dic.Add "key1", "アテネ" dic.Add "key2", "ベオグラード" dic.Add "key3", a msgbox dic("key3")(0) msgbox dic("key3")(1) : デフォルトの名無しさん (ワッチョイ 4961-U2HA) [] 2017/11/08(水) 19:49:47.05:aX63wCUb0 前スレ Excel VBA 質問スレ Part50 ttps://mevius.5ch.net/test/read.cgi/tech/1503805217/ : デフォルトの名無しさん (スプッッ Sd62-3K0w) [] 2017/11/08(水) 20:24:39.43:VRSOCYqCd マップをやめて配列「で」入れる って意味にとってたけど マップの中に配列「を」入れる って意味かよ : デフォルトの名無しさん (ワッチョイ 5f8a-lB0v) [sage] 2017/11/09(木) 13:04:15.65:W66xKF5F0 アイテムが複数あっても同じkey 使えばいいんじゃねと思った : デフォルトの名無しさん (ワッチョイ 5fb3-Q4Ea) [sage] 2017/11/09(木) 14:39:20.19:goVr3jSD0 集計をしたいって事じゃない? : デフォルトの名無しさん (ドコグロ MM7f-kkiU) [sage] 2017/11/09(木) 20:19:01.12:HS5Oh82mM やってみてから発言することをお勧めする : デフォルトの名無しさん (ワッチョイ ffe9-d8GJ) [] 2017/11/09(木) 20:29:22.40:7b9amfpv0 いい言葉を見つけた Those who know don't talk. (知ってる人は教えようとしない) Those who talk don't know. (教えてる人はあまり知らない) : デフォルトの名無しさん (ワッチョイ 5f61-KQ8c) [sage] 2017/11/09(木) 21:19:05.18:F89uizh+0 立て乙です。 自宅にエクセル環境が無いのでうろ覚えで 細かい間違いはあるかもですが、該当箇所以外はokという前提です 日本という名前のブック 各都道府県名のシート があるとき Dim Bn as Workbook Dim T as Worksheet Set Bn = Workbooks("日本") Set T =Worksheets("東京都") Workbooks("日本").Worksheets("東京都").cells(1,1) = "123" Bn.T.cells(1,2) = "456" を実行すると 上段は問題なく実行されて、東京都シートのセルA1に123が入力されますが 下段でエラーがでてしまいます。また Bn.Worksheets("東京都").cells(1,2) = "456" T.Worksheets("東京都").cells(1,2) = "456" のどちらでも動きました ブックもシートも両方変数で指定するとエラーになってしまうのでしょうか? ブックもシートもそれなりに切り替えるので、可能であれば別で指定したいのですが…… 心当たりがあればご教示いただけると助かります。 : デフォルトの名無しさん (ワッチョイ ffe9-FM5+) [] 2017/11/09(木) 21:25:44.32:7b9amfpv0 × Bn.T.cells(1,2) = "456" ○ T.cells(1,2) = "456" オブジェクトの操作は慣れが必要だけど、こういうもんだと思っておくれ : デフォルトの名無しさん (ワッチョイ 7feb-hKlY) [] 2017/11/09(木) 22:48:42.62:5mp2zjAU0 Bn.Tだと workbookオブジェクトにTって言う属性や関数が無いからエラーになるのは当たり前 : デフォルトの名無しさん (ワッチョイ 7fb3-kkiU) [sage] 2017/11/09(木) 23:25:52.19:r1UnXx8k0 > Set Bn = Workbooks("日本") > Set T =Worksheets("東京都") ここは Set T =Bn.Worksheets("東京都") って書くべき : 10 (ワッチョイ 5f61-KQ8c) [sage] 2017/11/09(木) 23:38:24.62:F89uizh+0 返答ありがとうございます。 やっぱり両方同時に変数指定はできないんですね…… 何というか、指定先が変わる度にセットするのは見づらいような感じがしてまして 明日何とか考えてみようと思います。ありがとうございました : デフォルトの名無しさん (ワッチョイ 7f1e-F71m) [] 2017/11/09(木) 23:57:00.50:3LOjlHPk0 ●●●宇宙の外側に何があるのか?●●● ttp://jbbs.livedoor.jp/bbs/read.cgi/stud ▲y/3729/1069922074/84-87 この掲示板(万▲有サロン)に優秀な書き▲込みをして、総額148万円の賞金をゲットしよう!(*^^)v ttp://jbbs.livedoor.jp/stu ▲dy/3729/ →リンクが不良なら、検▲索窓に入れる! : デフォルトの名無しさん (ワッチョイ 7fe7-TPjW) [sage] 2017/11/10(金) 00:13:48.87:anK9LaNF0 名前(Workbooks)が一致していればいいってものじゃない。 オブジェクト.メンバ という構文なんだよ。メンバとはそのオブジェクトが持っているメソッドとかプロパティとかのこと。 しかし Bn.T と書くと、オブジェクトとオブジェクトを . で繋いだことになり、これは意味不明なものになる。 : デフォルトの名無しさん (アークセー Sx33-dU/l) [sage] 2017/11/10(金) 02:06:21.33:HkDX0vBax コレクションかユーザー定義クラス使うかしたらいいと思うが : デフォルトの名無しさん (アークセー Sx33-dU/l) [sage] 2017/11/10(金) 02:16:45.89:HkDX0vBax 質問者はオブジェクト.メンバの構文の意味が分かってなくてオブジェクトブラウザも見たことない人なんだろうな オブジェクトのメンバ名を指定してメソッド関数やプロパティ関数を呼び出すことで別のオブジェクトインスタンスのコントロールを取得しているんだってことが理解できてないんだろう : デフォルトの名無しさん (ワッチョイ ff9d-QXYS) [sage] 2017/11/10(金) 10:37:51.15:3nhwt3Be0 >T.Worksheets("東京都").cells(1,2) = "456" これホントに動いたのか? WorksheetにWorksheetsプロパティとか無かったはずだけど 何がやりたいかよくわからんが とりあえずブック名とシート名受け取って該当Worksheet返す関数作ればいいんじゃないかと : デフォルトの名無しさん (スップ Sd1f-l+iR) [sage] 2017/11/10(金) 12:27:51.12:VovrPQN6d ワークシートchangeでtargetのA1が代わったらコードが流れるようにしてて、それ以外はexitで抜けてるんだけど、コードがセルに転記してて毎回changeの所に戻ってはexit、戻ってはexitで見辛いのはなんとかなりませんか? : デフォルトの名無しさん (ワッチョイ ffb9-sJj3) [sage] 2017/11/10(金) 13:11:21.32:ooNCyCJx0 マクロの実行中に何度もセルに書き込みが発生する処理が美しくないので設計を見直す。 : デフォルトの名無しさん (ワッチョイ 5f8a-zl2n) [sage] 2017/11/10(金) 13:45:49.16:Fw2iLfOX0 作った人に聞いてみたら? : デフォルトの名無しさん (ササクッテロル Sp33-Q4Ea) [sage] 2017/11/10(金) 17:25:45.54:6gcbKBqNp EnableEvents=False でイベント制御したらだめなの? : デフォルトの名無しさん (ガックシ 064f-x5jG) [sage] 2017/11/10(金) 18:26:04.03:DKnywXcl6 SolverOk関数のEngineまたはEngineDescの引数の規定値って何でしょうか? : デフォルトの名無しさん (ワッチョイ ff9d-QXYS) [sage] 2017/11/11(土) 03:04:03.09:pW9oGH+o0 俺の使ってるバージョンだとその引数が無いっぽいから分からんけど オブジェクトブラウザで表示させれば分かるんじゃね : デフォルトの名無しさん (ワッチョイ 7f41-sJj3) [] 2017/11/11(土) 08:36:27.60:Smy5DbHD0 MP4ファイルのプロパティ値を取得するプログラムでエラーが発生してしまいます ★の箇所で「'NameSpace'メソッドは失敗しました:'IShellDispatch6'オブジェクト」のダイアログが出ます 参照設定Microsoft Shell Controls and automaitonを追加してもだめでした 解決方法がわかれば教えてください Private Sub CommandButton1_Click() Dim Shell, Folder Set Shell = CreateObject("Shell.Application") Set Folder = Shell.Namespace(range("A1").Value) ←←←★ : デフォルトの名無しさん (ワッチョイ 7f41-sJj3) [] 2017/11/11(土) 09:03:00.19:Smy5DbHD0 こちらのサンプルでとりあえず動きましたお騒がせしました Dim FSO As Variant, SHell As Variant, Folder As Variant Set FSO = CreateObject("Scripting.FileSystemObject") Set SHell = CreateObject("Shell.Application") Set Folder = SHell.Namespace(FSO.GetFile(Songs(1)).ParentFolder.Path) Cells(1, 1) = Folder.GetDetailsOf(Folder.ParseName(Target), 0) : デフォルトの名無しさん (ワッチョイ ff81-ouqv) [] 2017/11/11(土) 12:39:17.23:KQr/r2/c0 エクセル2013を使用しています。 今、日付を手入力しているのですが、何かで見たのですが カレンダーから選択して入力できる機能があるのですがエクセルでもできる方法ないでしょうか? いろいろさがした所アクセスはできるのですがエクセルは標準でもなく カレンダーコントールなるものあるみたいですが、アクセスもインストールしていないので VBAマクロの中にもありません : デフォルトの名無しさん (アウアウカー Sad3-wagG) [sage] 2017/11/11(土) 14:37:40.42:iMxfLIL8a 両方同時にではない。 Worksheetを変数に入れたということはブック情報も込みで入ってる。 だから便利なの。 Aブックのαシートを変数に入れてもその変数でBブックのαシートにアクセスできるわけじゃない。 君のBn.T式のやり方だとBブックのαシートにもアクセスできることになる。 それはBn.Worksheets(T)式と変わらない。 一方、もしBブックのαシートにアクセス出来ないのならBn.T式の意味が無い。 T式で良いわけだから。 : デフォルトの名無しさん (アウアウカー Sad3-wagG) [sage] 2017/11/11(土) 15:59:40.18:D533txsCa 動くのは結構なことだけどFSO無くてもファイル情報取れるよ。 他の部分で便利にFSO使ってるなら良いんだけどその部分だけ見たら無駄だよね。 Dim objShell As Object Dim objFolder As Object Dim objFItm As Object Set objShell=CreateObject("Shell.Application") Set objFolder=objShell.Namespace("C:¥Users¥Hoge¥Desktop") Set objFItm=objFolder.ParseName("fuga.txt") Debug.Print objFolder.GetDetailsOf(objFItm,3) 参照設定とか書いてるけど、それぞれの意味分かってる? CreateObjectってのは、その場で名前を元にオブジェクトを作成する。 だからコード書いてる間にはどんなメソッドやプロパティがあるか分からないからインテリセンスでの候補が出ることもない。 参照設定は使うオブジェクトを事前に指定することでオブジェクトの型とかメソッド、プロパティにアクセス(インテリセンス等)しやすくするためのもので、CreateObject使ったり、オブジェクトの型をObjectにしてるんだったら意味がない。 CreateObjectで生成出来ないのも有るし参照設定のがある意味上位互換だけど人にコードを提示する場合は参照設定するよう指示も書かなくちゃなんないからCreateObjectでの例が多いんだけどさ。 もちろん、参照設定したら動くようになるなんてことも無い。 Dim objShell As Shell Dim objFolder As Folder Dim objFItm As FolderItem Set objShell=New Shell Set objFolder=objShell.Namespace("C:¥Users¥Hoge¥Desktop") Set objFItm=objFolder.ParseName("fuga.txt") Debug.Print objFolder.GetDetailsOf(objFItm,3) : デフォルトの名無しさん (ワッチョイ ffe9-81rD) [] 2017/11/11(土) 16:02:23.93:vmoy6u3Z0 参照設定は極力しないほうが良いよね 参照設定を忘れてドハマリすることがたまによくある : デフォルトの名無しさん (アウアウカー Sad3-wagG) [sage] 2017/11/11(土) 16:04:50.69:D533txsCa エクセルでも出来るんだけど非常に上級者向けなんです。 上級者でも自分で1から組めない人が多いんじゃないかと思う。 上級者って何?、お前の勝手な分類だろって言われればそうなんだけど。 : デフォルトの名無しさん (ワッチョイ ffe9-81rD) [] 2017/11/11(土) 17:24:06.37:vmoy6u3Z0 エクセル アドイン カレンダー で検索すれば色々見つかるよ 使いやすいもの選べばよろし : デフォルトの名無しさん (ワッチョイ 5fb3-4T/N) [sage] 2017/11/12(日) 05:18:36.72:Dmy+tyrb0 UserForm使えば簡単に自作できますよ。 年と月用のテキストボックスをつけて、年と月それぞれ増減させるために、スピンドルボタンをつける。 日付表示用のラベルを必要数用意。 年と月のテキストボックスの値に応じて、ラベルの表示を変更。 ラベルのクリックイベントで、年と月のテキストボックスとラベルのテキストを連結して、日付に変換。 ラベルのクリックイベントは、クラスでまとめれば、クリックイベントをたくさん書く必要もありません。 : デフォルトの名無しさん (ワッチョイ dff7-lMX+) [sage] 2017/11/12(日) 06:52:57.92:UfHz6itl0 スピンボタンな : デフォルトの名無しさん (スップ Sd9f-l+iR) [sage] 2017/11/12(日) 11:00:33.46:61FaOR6Wd コードっていろんなパターンあってたくさん書いてると思うんだけど、コードの保管ってメモ帳?? : デフォルトの名無しさん (ワッチョイ 7feb-hKlY) [] 2017/11/12(日) 11:17:54.47:QqFg5+2e0 エクスポートできるよ gitとかsubversionとか使えばいい : デフォルトの名無しさん (スップ Sd9f-l+iR) [sage] 2017/11/12(日) 11:23:55.96:61FaOR6Wd 連投すまんが、セルを方眼紙にして、フォームの中に直線コマンド、円コマンド、角コマンド等CADみたいなそれぞれ押したらそれが、反映されて作画って出来る? : デフォルトの名無しさん (ワッチョイ 7feb-hKlY) [] 2017/11/12(日) 11:28:28.89:QqFg5+2e0 できるかできないかで言うと出来る 各図形の位置に当るセルの背景色を変えれば良いだけ : デフォルトの名無しさん (ワッチョイ ffe9-yeIO) [] 2017/11/12(日) 12:15:44.63:chRcmei30 ブログ作ってそこによく使うコードを置いてある いつでもどこでも検索すれば出てくるので非常に便利 : デフォルトの名無しさん (ワッチョイ ffe9-yeIO) [] 2017/11/12(日) 12:16:32.95:chRcmei30 できるけどかなりめんどくさい cacooとか既存サービス使った方が良いと思う : デフォルトの名無しさん (ワッチョイ 5fb3-Q+Fb) [sage] 2017/11/12(日) 17:01:38.36:eJwcw8mO0 簡単じゃないだろw しちめんどくせーよ : デフォルトの名無しさん (ワッチョイ 5fb3-Q+Fb) [sage] 2017/11/12(日) 17:02:12.03:eJwcw8mO0 モジュールをそのまま保存できるだろ : デフォルトの名無しさん (ワッチョイ ffb9-sJj3) [sage] 2017/11/12(日) 18:22:11.84:syzs4wk80 他に手軽な方法がないからUserFormで作れるようにしておくのが一番いいぞ。 : デフォルトの名無しさん (ワッチョイ 5fb3-Q+Fb) [sage] 2017/11/12(日) 18:36:30.88:eJwcw8mO0 まあそれしかないのはそうなんだけどさ : デフォルトの名無しさん (ワッチョイ 5fb3-4T/N) [sage] 2017/11/12(日) 20:02:01.58:Dmy+tyrb0 vbのランタイムをインストールすればDateTimePicker使えるけど、Formでカレンダー自作しておけば簡単に使い回したり配布出来るから一個作っておくといいと思いますよ。 : デフォルトの名無しさん (ワッチョイ 5fbd-vLjR) [sage] 2017/11/12(日) 22:30:08.29:XHSQB0UC0 フォルダ1 ┗XXX29年10月.xlsx XXX29年11月.xlsx YYY29年10月.xlsx YYY29年11月.xlsx フォルダ2 フォルダN フォルダ1内に今月のファイルがあったらコピーして名前を翌月に変更して保存 これをフォルダNまで同じように処理する方法教えてください 年月の取得はユーザーフォームが理想ですが全く分らんので マクロ実行用ファイルのA1に年、A2に月入力して取得する感じを考えてます : デフォルトの名無しさん (ワッチョイ 5fb3-Q+Fb) [sage] 2017/11/12(日) 23:03:42.29:eJwcw8mO0 今月のファイルを探したいならDate関数使えば今日の日付が出るからそっからformatなりyearとmonthくみあわせるなりで取得すればいいからわざわざ入力させる必要がないね フォルダないのファイル名の取得ならググればいくらでも出てくるぞ 俺はfilesystemobjectを使うけど : デフォルトの名無しさん (ワッチョイ dff7-lMX+) [sage] 2017/11/12(日) 23:12:47.43:UfHz6itl0 まずは最初の部分だけ 今年 = Format(Now, "e") 今月 = Month(Now) 来月 = DateAdd("m", 1, Now) 年 = Format(来月, "e") 月 = Month(来月) : デフォルトの名無しさん (ワッチョイ dff7-lMX+) [sage] 2017/11/12(日) 23:16:31.66:UfHz6itl0 変数に残す必要なかった 今月 = Format(Now, "ee年mm月") 来月 = Format(DateAdd("m", 1, Now), "ee年mm月") : デフォルトの名無しさん (ワッチョイ ff9f-wagG) [sage] 2017/11/13(月) 00:50:26.46:cup53tTa0 どうしてもカレンダー欲しいんだったらSysDateTimePick32使って頑張るだろうな。 面倒くさいけど他のコントロールもMSFormsを使わないウィンドウ作成もやったことある。 きちんとプロパティ作るの面倒くさいから使いたいものしか実装してないけど。 : デフォルトの名無しさん (ワッチョイ ff9f-wagG) [sage] 2017/11/13(月) 00:58:21.51:cup53tTa0 ファイル名取得にfilesystemobjectは激重だった気がする。 Dir関数で頑張る方がよっぽど速い。 これが原因でfilesystemobjectは使わなくなってしまった。 他では速いものもあるのに食わず嫌いになった。 : デフォルトの名無しさん (アークセー Sx33-dU/l) [sage] 2017/11/13(月) 01:02:34.35:AtJ4gbq1x 処理対象のファイルのロングパスがDirの引数の字数制限を越えてるときはどうするの? : デフォルトの名無しさん (ワッチョイ 7fb3-kkiU) [sage] 2017/11/13(月) 06:21:29.66:gczEvEcT0 そもそも劇重なんて思ったことないが... : デフォルトの名無しさん (スップ Sd9f-Lcj1) [] 2017/11/13(月) 08:01:19.66:4dN82Cnsd なんか別のものと勘違いしてるんじゃないか : デフォルトの名無しさん (ワッチョイ ffb9-sJj3) [sage] 2017/11/13(月) 08:26:57.35:pr331NCP0 たかがファイル名を取得するのに処理負荷を感じるほど重くなるとか考えられないな。 読み取り先が等速ドライブに突っ込んだCDだったとか、回線の細いNASだったとかなら分かるけど。 : デフォルトの名無しさん (アウアウオー Sa7f-Q+Fb) [sage] 2017/11/13(月) 09:22:13.43:mbcSFLNRa クラスにして使いやすくしてるならDir関数でもいいと思うけど生で使う気は更々起きねーなあれは めんどくさすぎる 早い遅いは環境次第だろう 何をしようとしたか知らんが : デフォルトの名無しさん (ドコグロ MMe3-kkiU) [sage] 2017/11/13(月) 12:42:29.30:IBZYfbeXM またVBAでクラス語る奴が来ちゃったよ... : デフォルトの名無しさん (アウアウカー Sad3-6ii5) [] 2017/11/13(月) 12:44:49.20:U+ZWq00Pa なんかWindows10でマクロの挙動が安定しなくなったんだけど、そういうのある? : デフォルトの名無しさん (アウアウオー Sa7f-Q+Fb) [sage] 2017/11/13(月) 13:17:08.13:GJIgK8HXa 語ってるつもりはないし、普通に機能としてあるのに使ってバカにされる筋合いもない : デフォルトの名無しさん (ワッチョイ 5fb3-4T/N) [sage] 2017/11/13(月) 13:21:12.07:ck+reS0/0 vbaでクラス使うメリットあるの? 一応あるインターフェースは使い物にならないし、継承も使えないし、コンストラクタに引数も設定出来ない。 vbaでクラス使うメリット教えて : デフォルトの名無しさん (アウアウオー Sa7f-Q+Fb) [sage] 2017/11/13(月) 13:21:56.90:GJIgK8HXa カプセル化 : デフォルトの名無しさん (スップ Sd9f-Lcj1) [] 2017/11/13(月) 13:43:14.72:4dN82Cnsd たまにある 単体の処理してる間だけじゃなく、しばらくの間は状態を持っててほしいとき ごく素朴な使い方しか出来ないし、しようとも思わないけど : デフォルトの名無しさん (アウアウオー Sa7f-Q+Fb) [sage] 2017/11/13(月) 13:48:11.54:GJIgK8HXa というか、クラスを使うデメリットって逆に何 : デフォルトの名無しさん (スプッッ Sd7f-lMX+) [sage] 2017/11/13(月) 13:52:55.00:HKnEhqdPd そもそもクラスが必要になるほど大規模なコードを書く用途にVBAは向いてない、使うべきじゃない ちゃんとした開発環境を使え 会社が許可しないなら転職するか我慢するかの二択、あるいは出世して自分で規則を変えろ 仕事の能率がアップして利益が増えるんなら反対する理由はないだろ : デフォルトの名無しさん (ワッチョイ dfb5-+bRG) [sage] 2017/11/13(月) 15:44:46.11:XD2Cv4t70 自分の好きなコードが書けないから転職とかww : デフォルトの名無しさん (ワッチョイ 7faf-2WZT) [sage] 2017/11/13(月) 15:54:24.73:IBY/CNJo0 不合理なことを押し付けてくる会社なら、転職も選択肢ってことだろ。日本語ダイジョブ? : デフォルトの名無しさん (ワッチョイ ffb9-sJj3) [sage] 2017/11/13(月) 16:07:38.26:pr331NCP0 クラスを使うとシンプルに表現出来る場合がある。規模の問題では無い。 普通に使ってるとなかなか活用するイメージが湧かないけど、覚えておくと役に立つよ。 : デフォルトの名無しさん (アウアウオー Sa7f-Q+Fb) [sage] 2017/11/13(月) 17:08:14.63:GJIgK8HXa ここでも前に書いたけど、配列のラッパークラスとか、一度作ると便利よ コレクションだと微妙に取り回し悪かったりするからね これ以上はスレチかな : デフォルトの名無しさん (スップ Sd9f-Lcj1) [] 2017/11/13(月) 17:09:30.17:4dN82Cnsd そうだよね ただ、いちいちクラスモジュールを追加しなきゃならないから、使い捨てクラスをほいほい定義しづらい : デフォルトの名無しさん (アウアウカー Sad3-wagG) [sage] 2017/11/13(月) 17:20:46.73:78YzXPYPa FileSystemObjectのファイル一覧取得が遅いのなんて結構有名な話だと思うんだが。 ハードディスクにあるファイル名全部取ってくるとかすれば分かる。 昔、どっかに比較してる所が有ったんだが見つからないな。 Win32APIが一番速かったがDirでもそんなに大きな違いは出なかった。 が、FileSystemObjectは糞遅い結果になってた。 そもそも自分で組んだら遅くてネットで調べたらやっぱり遅かったという。 : デフォルトの名無しさん (アウアウカー Sad3-wagG) [sage] 2017/11/13(月) 17:23:43.47:78YzXPYPa クラスは凄く便利だが、無理に使う必要は無いと思う。 個人的には仕様を考えた段階でクラス使うのがぴったりと感覚で分かる。 そういう時以外は使わない。 : デフォルトの名無しさん (アウアウオー Sa7f-Q+Fb) [sage] 2017/11/13(月) 17:47:02.85:GJIgK8HXa そうなんか まあ、今んとこそんな大量のファイルのやり取りしたことないから体感したことなかったわ まあ、その辺使うにしても生で扱うよりクラスでまとめちゃった方が取り回し良さそうだがね その辺は好みなんだろうけどね : デフォルトの名無しさん (ドコグロ MMe3-kkiU) [sage] 2017/11/13(月) 18:55:14.32:IBZYfbeXM まともな言語ならクラスを使うデメリットはないけどVBAのクラスは制限が多すぎて使う意味がない : デフォルトの名無しさん (ワッチョイ ffe9-ySnM) [] 2017/11/13(月) 19:08:08.64:wM5leOdq0 bit数の関係で安定しなくなったことはある 多分、ない class使ったほうが見通しがよくなる場合はあるけど、 正直そんなに変わらんというか、めんどくさくなるだけの場合が多い気がする : デフォルトの名無しさん (ワッチョイ 5f81-2HIz) [sage] 2017/11/13(月) 21:36:08.79:S878v5EG0 この流れで突然クソみたいな質問するの恐縮なのですが… 共有で使っているExcelのデータの行がランダムに大量に消える現象が起きてます 多分誰かがオートフィルタかけた状態でうっかり削除したんだと思うんですが、 消えた行に全く共通点が無いので「マクロにウイルスが付いたんだ!マクロやめろ!」って因縁付けられています まずVBAにウイルスを仕込むならともかく、VBAを使用しているせいでウイルスに感染するって無いですよね? あとこのコードに行を消すような要素があるか見てもらいたいです オートフィルタをかけるだけの簡単なコードなんで無いと思うんですが周りに誰も聞ける人が居ないので一応… 簡単な指示だけどすごく頻繁に使うので消したくないんです Sub filter1() Range("K2").AutoFilter Field:=9, Criteria1:="<>" Range("L2").AutoFilter Field:=10, Criteria1:="" Range("O2").AutoFilter Field:=13, Criteria1:="AA" End Sub Sub filter2() Range("K2").AutoFilter Field:=9, Criteria1:="<>" Range("L2").AutoFilter Field:=10, Criteria1:="" Range("O2").AutoFilter Field:=13, Criteria1:="" End Sub Sub filter3() If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData End If End Sub : デフォルトの名無しさん (ワッチョイ 7f1e-EzKS) [sage] 2017/11/13(月) 21:42:36.96:zsNLMe3/0 シート保護かけてみるとか : デフォルトの名無しさん (ワッチョイ ffe9-Ai73) [] 2017/11/13(月) 21:45:59.98:wM5leOdq0 ウィルスに感染していて、セキュリティをsageているためにウィルスが実行されているというパターンなら考えられるが 其れ以前の問題として ・オートフィルタをかける ・全体をコピー ・ペースト(値として貼り付けなど) で行が減っている可能性のほうが高いと思う この仕様 、意外と知られていないんじゃないかなぁ : デフォルトの名無しさん (ワッチョイ 5f81-2HIz) [sage] 2017/11/13(月) 22:24:58.44:S878v5EG0 それって別のシートやブックに貼り付けるときに可視セルだけ貼り付けられているという意味ですか? 別のブックやシートにコピーする事は無いと思うので可能性としては低い気がします… 試しにオートフィルタしながら同じシートに貼り付けようとしたら「コピー領域と貼り付け領域が違うため貼付できません」となりました : デフォルトの名無しさん (アウアウオー Sa7f-Q+Fb) [sage] 2017/11/13(月) 22:25:14.14:GJIgK8HXa まあ、自作マクロでウィルスどうこうはあり得ないわ コード見る限りでも、フィルターかけてるだけで値の操作はしてないしな まあ、フィルターかけっぱなしにならないようにブッククローズ時にフィルター解除すれば? : デフォルトの名無しさん (ワッチョイ ffe9-Ai73) [] 2017/11/13(月) 22:28:52.42:wM5leOdq0 >それって別のシートやブックに貼り付けるときに可視セルだけ貼り付けられているという意味ですか? そう >別のブックやシートにコピーする事は無いと思うので可能性としては低い気がします… そか オートフィルタならまずこれかなーと思ったけど、コピーペーストしてないなら違うかな : デフォルトの名無しさん (アウアウオー Sa7f-Q+Fb) [sage] 2017/11/13(月) 22:30:45.38:GJIgK8HXa フィルターで謎のデータ消失なら質問者の疑念通りフィルターかけたまんま範囲削除じゃねーかな : デフォルトの名無しさん (ワッチョイ ffe9-Ai73) [] 2017/11/13(月) 22:32:36.92:wM5leOdq0 実際のコード上げたほうがいいかもねぇ : デフォルトの名無しさん (ワッチョイ 5f81-2HIz) [sage] 2017/11/13(月) 22:46:30.32:S878v5EG0 ありがとうございます コードがおかしいわけじゃないなら良かったです 一応ここに貼ったコードはAAの部分に別の単語が入ってるだけで他は全て実際に使っているものと同じです クローズ時にフィルター解除するようにはしてなかったのでやってみます : デフォルトの名無しさん (ササクッテロル Sp33-DmTq) [sage] 2017/11/14(火) 09:16:46.87:8wZuibTmp インターネットが壊れた!みたいなのはやめてください! : デフォルトの名無しさん (アウアウオー Sa7f-Q+Fb) [sage] 2017/11/14(火) 09:53:14.55:tqdP1JBma エクセルの特定の行だけ消すウイルスとか笑えるわ まあ、バグ満載のマクロとかある意味ウイルスだけど : デフォルトの名無しさん (ワッチョイ ff9f-wagG) [sage] 2017/11/14(火) 11:29:31.52:G7+v7Fl70 ウィルスは簡単に作れるだろ。 リテラシー無い奴が増えたからウィルスとは何ぞ?という議論が必要かも知れんが。 ただ、ExcelよりはAccessとかのが簡単だから大丈夫なんか?と思ったことあるけど。 Application.VBE系のコードが動くようになってれば感染させるのは簡単。 通常、Excelではセキュリティ設定で動かないようにはなってる。 Accessには設定が無い。 WordやPowerPointはどうだったかな。 Application.VBE系ってのはコード書いてるエディタを弄るものでVBAでコードを追加出来る。 つまり自分自身のコードをHDD上の不特定なxlsファイル開いて追加すれば自己増殖出来るし、Auto_Open辺りを追加して次回誰かが開いた時に勝手に実行させることも出来る。 ついでにそのxlsファイルをメールに添付して、アドレス帳の適当な所に送ることも出来る。 少し書ける奴なら分かってるだろうからApplication.VBE系は動かない設定になってるだろう。 Application.VBE系は便利でGithubにアップしたり、VBAのバックアックしたり、コード取得してWinmergeに与えて比較したり色々利用してたけどVB.netのCOMアドインに移行中。 : デフォルトの名無しさん (オイコラミネオ MM8f-appL) [sage] 2017/11/14(火) 11:36:59.15:JNyIRsqMM 隙あらば自分語り : デフォルトの名無しさん (ワッチョイ dfb5-+bRG) [sage] 2017/11/14(火) 12:24:48.16:vavtQv330 長文はスルーで : デフォルトの名無しさん (ワッチョイ ffb9-sJj3) [sage] 2017/11/14(火) 12:38:00.31:Tcgv7xMn0 コンピュータウィルスって「操作している人間の意に沿わない動きをするプログラム」だったと思ったんだけど、 いつの間にか定義が変わったのか。 CDトレー開いたりマウスをランダムに動かすジョーク系もウィルスだったはずだからのもウィルスと言っていいと思ったんだが。 : デフォルトの名無しさん (ササクッテロラ Sp33-hKlY) [] 2017/11/14(火) 12:42:08.62:dN7NjwRxp その定義だと世の中のあらゆるソフトはウイルスになるんじゃね バグはあるからな AndroidやiOSもウイルスになる : デフォルトの名無しさん (ワッチョイ ff9d-QXYS) [sage] 2017/11/14(火) 13:07:49.89:5gpUPtII0 その定義だとワームやトロイの木馬とウィルスが区別できないわけだが いくら今だとより広義に使われるとはいえ >>いつの間にか定義が変わったのか はそのままお前に返してやるよ : デフォルトの名無しさん (ワッチョイ ffb9-sJj3) [sage] 2017/11/14(火) 13:09:39.12:Tcgv7xMn0 バグは確か「論理的に正しくない結果をもたらす何か」みたいな定義だったと思う。 マシン内に虫が侵入して電気的にショートするのが語源だしね。 同じ定義で使い続けるとバグとウィルスがあやふやになるというのは時代の流れだなぁ。 : デフォルトの名無しさん (ワッチョイ ffb9-sJj3) [sage] 2017/11/14(火) 13:16:31.95:Tcgv7xMn0 ワームもトロイの木馬も、元々はコンピュータウィルスを感染させるテクニックというか、 媒介手順だったはずがいつの間にか独立してウィルスの親戚みたいな扱いになってるよなぁ。 : デフォルトの名無しさん (ワッチョイ ff9d-QXYS) [sage] 2017/11/14(火) 14:03:33.75:5gpUPtII0 もともと、「感染」しないものはウィルスじゃない いつのまにか独立したんじゃなくて、初めからちゃんと別物でちゃんと区別されていたんだが いつのまにかまとめてウィルスと呼ばれるようになったんだ 今じゃマルウェア全般が広義にウィルスって言われる始末 バグは語源は諸説あるが、作成者の意図にそわない動作 ウィルスは作成者の意図にそった動作するプログラム いくらなんでもそれを混同しないでくれ : デフォルトの名無しさん (ワッチョイ ffb9-sJj3) [sage] 2017/11/14(火) 17:57:06.04:Tcgv7xMn0 だからトロイの木馬もワームも単体ではウィルスじゃなかったんだよ。 言うなればコンテナみたいなものなんで、トロイの木馬型のパッチプログラムとかも可能だし。 たぶん想像している「定義づけられた時期」が違うせいで食い違ってるだけだな。 : デフォルトの名無しさん (ワッチョイ 5fc3-742n) [sage] 2017/11/14(火) 17:58:22.04:MC75ktwb0 もうやめよう : デフォルトの名無しさん (ワッチョイ ff9f-wagG) [sage] 2017/11/15(水) 10:46:14.78:PQCfnSyv0 ??? 自己増殖しなきゃウィルスじゃない。 トロイもワームもウィルスじゃねーだろ。 : デフォルトの名無しさん (スップ Sd9f-Lcj1) [] 2017/11/15(水) 12:15:18.42:l7NNgtZ+d プログラミングによる業務自動化絶対阻止マンがいて、ウィルスだろうがワームだろうが 題目はなんでもいいから邪魔しようとしている という妄想をした... ...疲れているようだ : デフォルトの名無しさん (ワッチョイ dfb5-+bRG) [sage] 2017/11/15(水) 12:24:36.36:CIMTn4iP0 vbaが駄目なら関数でやればいいじゃない : デフォルトの名無しさん (ワッチョイ ff9f-wagG) [sage] 2017/11/15(水) 12:41:18.42:PQCfnSyv0 いや、だからApplication.VBE系の実行を拒否する設定にしておけばOK。 普通はそうなってる。 マイクロソフトも散々懲りたということだろう。 Accessはそうなってないから危険だけど、どっちにしろアンチウィルスソフト入れたり、それなりに敏感ならまあ大丈夫だろう。 メールに添付されたファイルを何も考えずに開くようなバカのいる所はそもそもコンピュ−タ使うなって話。 : デフォルトの名無しさん (スッップ Sd9f-MWBu) [sage] 2017/11/15(水) 15:25:25.16:PmECE2vTd Excel2010からExcel2013にしたら「ライブラリが見つかりません」というが発生しました。 他のPCで作成したExcelファイルを開こうとしたら上記のようなエラーが発生したのです。 Excel2010の時も参照設定は参照不可になっておりましたがExcelに記載されているデータを 参照するだけでVBSは動かさないのでExcel2010ではエラーになりませんでしたが、Excel2013 ではファイルを開いた際に「ライブラリが見つかりません」というエラーになります。 これはExcelに開いた際に参照設定のチェックをしないみたいな設定があるのでしょうか? : デフォルトの名無しさん (ワッチョイ dfc3-/WXw) [] 2017/11/15(水) 17:08:22.00:MYmTne2b0 説明がひどいなw : デフォルトの名無しさん (ワッチョイ 5fb3-ZbMi) [] 2017/11/15(水) 20:25:36.13:m2725R1N0 vbeのツールのライブラリファイルって実体はなになんですか?参照不可になったりしますが オブジェクトエクスプローラのライブラリともちがうし : デフォルトの名無しさん (アークセー Sx33-dU/l) [sage] 2017/11/15(水) 21:27:06.93:BuHcCqTIx VBSとオブジェクトライブラリに何の関係があるんだ? : デフォルトの名無しさん (ワッチョイ 7fd2-Kfl6) [] 2017/11/15(水) 23:13:12.29:gnIues9e0 メモリリークはVBAでどう対処すればいい? 巨大なファイルクローズ後にまるまんまリークするのですが : デフォルトの名無しさん (ワッチョイ ffe9-JS46) [] 2017/11/15(水) 23:18:44.71:R7mLmomD0 巨大なファイルは ・作らない ・分割する ・変換する ・開かずに読み取る ・csvならテキストとして読み込む この辺 メモリリークはある意味どうしようもないので前提からどうにかしないと解決しない : デフォルトの名無しさん (ワッチョイ 7fd2-Kfl6) [sage] 2017/11/15(水) 23:25:33.43:gnIues9e0 ありがとう。思い当たるのもあります。 ・開かずに読み取る これ、できるんですね。調べてみます : デフォルトの名無しさん (ワッチョイ e18a-8CrJ) [sage] 2017/11/16(木) 02:14:21.20:Og9f/0gn0 俺なら読み取り専用で一部だけ読んで閉じる : デフォルトの名無しさん (オッペケ Srd1-FHhe) [] 2017/11/16(木) 12:25:39.51:NqwHUE6Zr それはメモリリークではないので気にする必要はありません : デフォルトの名無しさん (ワッチョイ e18a-8CrJ) [sage] 2017/11/17(金) 11:56:05.53:8RvIbz6z0 巨大なファイルをSSDのHDDに移すと速いんじゃね : デフォルトの名無しさん (ワッチョイ e18a-8CrJ) [sage] 2017/11/17(金) 11:57:22.13:8RvIbz6z0 HDDってかいたけどHDDじゃないけどな : デフォルトの名無しさん (スフッ Sd22-2nK2) [sage] 2017/11/17(金) 12:27:16.57:OabwNEEsd SSDのHHDのFFD : デフォルトの名無しさん (スップ Sd82-81ZB) [sage] 2017/11/17(金) 17:41:51.06:1LBcgp5Vd VBAで原価計算してる人いる? : デフォルトの名無しさん (JP 0Hcd-59Nk) [sage] 2017/11/17(金) 20:16:29.56:Iig4V4n+H Dir関数で末尾$のフォルダを確認するとエラーになる。 (配下のフォルダはエラーにならない) これ、どんな理由でしょうか? : デフォルトの名無しさん (ワッチョイ 869d-67WJ) [sage] 2017/11/18(土) 00:56:48.74:lwdaQlHz0 なぜエラーの内容を書かないのか 軽く試した範囲ではエラーにならないな 環境とエラー内容と、実際にエラーになるコード晒せ : デフォルトの名無しさん (JP 0Hcd-59Nk) [sage] 2017/11/18(土) 12:07:28.26:+9+JGsY3H ですよね。すんません。 'Case NG ?Dir("¥¥Svr¥Share$", vbDirectory) 'Case OK ?Dir("¥¥Svr¥Share$¥Sub", vbDirectory) アクセス権は親フォルダから継承していますので双方UNCアクセス可能な状態です。Domain Admins権限で実行しています。 GetAttrの戻りは双方 16 です。 共有名に$をつけない場合は発生しないように見受けられます、、、 と、思ったのですが、$の有無ではなくて、共有フォルダ自体を指定すると発生するようです。 エラーは、52: ファイル名または番号が不正です。となります。 ご教示お願いします。 : デフォルトの名無しさん (JP 0Hcd-59Nk) [sage] 2017/11/18(土) 12:11:55.49:+9+JGsY3H 環境は、 2008Server Win7Pro/Excel 2010@vmware 5.4.0 です。 : デフォルトの名無しさん (JP 0Hcd-59Nk) [sage] 2017/11/18(土) 13:20:32.42:+9+JGsY3H 末尾を"¥"で終わらせるとエラーにならないことがわかりました。でも戻りが "." になります。わからなくもないですが "Share$" を期待していたので、、 どう解釈すればいいのでしょうか。 (Dir を使う際は末尾 "¥" を励行したほうがいい?) : デフォルトの名無しさん (ワッチョイ 869d-67WJ) [sage] 2017/11/18(土) 17:21:41.22:lwdaQlHz0 UNCパスでそこは共有名であってフォルダ名じゃない気がするが : デフォルトの名無しさん (ワッチョイ 821a-2Rtq) [sage] 2017/11/18(土) 17:56:31.65:HVgorTjE0 すいません wordのVBAです。 画像貼りつけて文字列の折り返しを背景にするのに下記では2行目で 描画の対象とならないオブジェクトが選ばれているためにtypeメソッドまたはプロパティは使用できません。 となりますが、どうしたらよいですか? Selection.InlineShapes.AddPicture FileName:="a.jpg", SaveWithDocument:=True Selection..ShapeRange.WrapFormat.Type=wdWrapBehind : デフォルトの名無しさん (JP 0Hcd-59Nk) [sage] 2017/11/18(土) 19:38:08.85:+9+JGsY3H なんかややこしいですね。 共有名に "¥" をつけて初めて共有フォルダのルートフォルダとして認識される、と覚えておくことにします。 : デフォルトの名無しさん (JP 0Hcd-59Nk) [sage] 2017/11/18(土) 22:21:46.28:+9+JGsY3H 立て続けにすんません。 onAction の引数について、全角英数記号が半角に解釈されて実行されてしまうのは既知の仕様でしょうか? ひらがなカタカナは被害を受けないようです。 CommandBars.ActiveControl.Caption CommandBars.ActiveControl.OnAction あたりで変換前の文字列を救出できるようですが、、根本的対応はないのでしょうか。 上記で躓いてしまい、公式で情報をみつけられなかったもので、、 : デフォルトの名無しさん (ワッチョイ 869f-W+Hj) [sage] 2017/11/19(日) 10:05:19.39:M3mw+ZdH0 まずさ、Selection使うの辞めようぜ。 Hoge.Select Selection.Fuga という形が有ったらたいてい Hoge.Fuga という形にできる。 つまりね、大抵は選ぶ必要がない。 ある程度書ける人は選ぶ処理をいかに無くすかを考える。 そうすればApplication.ScreenUpdating=False使っても 速度が変わらなくなる。 ちらつき防止のために使うのが有用なのは変わらないんだけど。 .Selectを使うのはユーザーに明示的に場所を示す場合と、 本当にどうしようもない場合がごくまれにあるだけだ。 オブジェクトブラウザでShapeRangeとかWrapFormatを 調べてそこに何が(型)期待されてるかを調べる。 後は合わせれば良いだけだ。 : デフォルトの名無しさん (ワッチョイ 869f-W+Hj) [sage] 2017/11/19(日) 10:10:14.58:M3mw+ZdH0 "OnAction" "全角"でググると結構出てくるね。 コメント以外で日本語使うこと無いから遭遇する事無かったわ。 : デフォルトの名無しさん (ワッチョイ 02e7-GXP8) [sage] 2017/11/19(日) 11:46:20.87:JvH46D6m0 >.Selectを使うのはユーザーに明示的に場所を示す場合と、 「ユーザーが明示的に選択したオブジェクトを処理する場合」も追加願います : デフォルトの名無しさん (ワッチョイ 46e9-e7SK) [] 2017/11/19(日) 11:56:21.06:aexN4+ic0 追加願いますって何を言ってるんだ??? : デフォルトの名無しさん (ワッチョイ 02e7-GXP8) [sage] 2017/11/19(日) 12:23:26.42:JvH46D6m0 が >.Selectを使うのはユーザーに明示的に場所を示す場合と、 >本当にどうしようもない場合がごくまれにある 「だ け」 だ。 と言ってるから、もう一つのパターンもあるよ、と言ってるわけだが? : デフォルトの名無しさん (ワッチョイ 46e9-e7SK) [] 2017/11/19(日) 12:30:59.55:aexN4+ic0 select使わない理由は誤作動の原因になるからの方が多いんじゃないか もちろんパフォーマンスも大きく変わるけど、言うほど変わらない それよりもコード上、何のブック、シートがactivateになっているかを把握する方が遥かにめんどくさい : デフォルトの名無しさん (ワッチョイ 6eb9-dUYE) [sage] 2017/11/19(日) 12:55:38.95:YlgcavI50 作ってるものが偏っているからActiveSheetやSelectionを使う機会がないだけで、 もっと操作補助的な面の強いマクロなら使う場面もあるかもしれない。 : デフォルトの名無しさん (ワッチョイ 46e9-e7SK) [] 2017/11/19(日) 12:57:36.65:aexN4+ic0 確かにコードの最後にcells(1,1).selectはよく書くけど、それ以外のselectはの通り「本当にどうしようもない場合」だけだな オートシェイプかなんかでsetできなかったような、忘れたけど : デフォルトの名無しさん (ワッチョイ 918a-F9AU) [sage] 2017/11/19(日) 13:53:20.81:wFQIPa4T0 IOと純粋関数部分を分けるようにと、Hな言語から学んだよ。 : デフォルトの名無しさん (ドコグロ MMca-ZIVp) [sage] 2017/11/19(日) 13:59:20.49:ZK6mPT5SM > もっと操作補助的な面の強いマクロなら使う場面もあるかもしれない。 まあそれが > .Selectを使うのはユーザーに明示的に場所を示す場合と、 > 「ユーザーが明示的に選択したオブジェクトを処理する場合」 なわけだが : デフォルトの名無しさん (ワッチョイ 869f-W+Hj) [sage] 2017/11/19(日) 16:16:58.30:M3mw+ZdH0 誤動作とか以前に無駄なことをしたくないという自然な考えがある。 Cells(1,1).Select Cells(1,2).Select Cells(1,1).Select と書かれてたらなんじゃこれと思うだろ。 マクロの記録は操作を自然に記録してしまうけど、 やりたいことはそれじゃない。 それにコードも汚くなって読みたくないものになる。 : デフォルトの名無しさん (アウアウオー Saca-6S2d) [sage] 2017/11/19(日) 16:18:58.83:8D87jpDPa ユーザーが明示的に選択したものに〜 ってのもぶっちゃけ運用の問題の気もするが マクロ化の範囲にもよるんだけども 可能な限り避けるべきってのは正しいでしょ : デフォルトの名無しさん (ワッチョイ 02e7-GXP8) [sage] 2017/11/19(日) 17:16:48.30:JvH46D6m0 >可能な限り避けるべきってのは正しいでしょ そうなの? 実際それをやることは少ないけど、別に避けてるわけじゃないな。 「ボタンを押すと、選択しているセルの書式を〜する」なんて処理はたまにある。 : デフォルトの名無しさん (アウアウカー Sa49-z9KJ) [sage] 2017/11/19(日) 17:30:54.95:SAgRzZs9a ユーザーが明示的に選択したものに処理を与えるってのはアリだとは思う。 でもそれはHoge.Selectでは無くてSelectionを使う場合だよね。 : デフォルトの名無しさん (ワッチョイ 02e7-GXP8) [sage] 2017/11/19(日) 17:35:35.45:JvH46D6m0 なるほど 最初のきっかけとなったの1行目が、 >まずさ、Selection使うの辞めようぜ。 だったからずっと Selection のことを語っていた : デフォルトの名無しさん (ワッチョイ 02b3-ZIVp) [sage] 2017/11/19(日) 17:48:04.11:lBNHVI9l0 優先順位の問題でしょ > ユーザーが明示的に選択したものに〜 って言う仕様の方が > 可能な限り避けるべき より優先されるのは当たり前 : デフォルトの名無しさん (ワッチョイ 46e9-e7SK) [] 2017/11/19(日) 17:50:02.84:aexN4+ic0 あぁそれはアリ 会社によっては多用するだろう : デフォルトの名無しさん (ワッチョイ 821a-2Rtq) [sage] 2017/11/19(日) 20:49:12.88:eK6D85VJ0 wordのマクロ組んでる人おらんのかな? : デフォルトの名無しさん (ワッチョイ 46e9-3zcL) [] 2017/11/19(日) 21:18:16.41:aexN4+ic0 >>141 そもそもwordを使わない あととりあえず動くコードを書いてくれ Selection..ShapeR ピリオドがニコあって邪魔 で、差し込んだ画像の文字列の折り返しってのが何がしたいのか良く分からん テキストボックスなら分かるしそれで通るけど : デフォルトの名無しさん (ワッチョイ 821a-2Rtq) [sage] 2017/11/19(日) 21:23:25.50:eK6D85VJ0 画像のレイアウトで背面にしたいんですよ。 なんかしらんけど動いて、なぜか前面で貼りつけられました。 なんかEXCELと勝手が違いますぬ・・・。 : デフォルトの名無しさん (ワッチョイ 46e9-3zcL) [] 2017/11/19(日) 21:27:01.10:aexN4+ic0 エクセルと勝手が違うんじゃなくて、ただただ猛烈に使いにくいだけ で、上手く行ったので質問は終了ってこと? : デフォルトの名無しさん (ワッチョイ 821a-2Rtq) [sage] 2017/11/19(日) 21:31:31.01:eK6D85VJ0 とりあえずは。 また多分色々とお伺いすることになると思いますが、 なにとぞよろしくお願いいたします。 : デフォルトの名無しさん (ワッチョイ f9b3-6S2d) [sage] 2017/11/19(日) 22:32:44.41:Z3cAV0my0 wordはスレ違いだけどな あんまりvbaと親和性もないし あくまで文書ツールだからな : デフォルトの名無しさん (ワッチョイ 1d03-FHhe) [] 2017/11/19(日) 22:50:31.56:1/mWyqVE0 おいおいExcelかてただの文書ツールやぞw : デフォルトの名無しさん (ワッチョイ 46e9-3zcL) [] 2017/11/19(日) 22:56:21.06:aexN4+ic0 釣りはほどほどに : デフォルトの名無しさん (ワッチョイ 02b3-ZIVp) [sage] 2017/11/19(日) 23:23:51.19:lBNHVI9l0 文書ツールとしてExcel使う奴はたくさんいるけど w : デフォルトの名無しさん (ワッチョイ 869f-W+Hj) [sage] 2017/11/20(月) 08:54:30.90:6BLE5ZLY0 まず君が貼り付けたのは何かを考えよう。 マクロ記録が示すコードを見ればInlineShapeだろう。 InlineShapeを調べれば文字列の中の位置を指定した図形ということらしい。 要は10文字目に挿入とかさ。 InlineShapeにはWrapFormatプロパティは無い。 文字列の折り返しを背景にするというのは回り込み等を自動でやるわけでその結果文字が動くだろ。 それじゃ位置を指定したことにならない。 だから出来ない。 それじゃあどうするかというと、InlineShapeをShapeに変換するというのが1つ。 InlineShapeにはConvertToShapeというのがあるから、それをShapeで受けてやればShapeにはWrapFormatプロパティがある。 Dim iShp As InlineShape Dim Shp As Shape Set iShp=Document("hoge.doc").Characters(10).InlineShapes.AddPicture("C:¥fuga.jpg") Set Shp=iShp.ConvertToShape Shp.WrapText.Type=wdWrapThrough しかしそもそも最初からInlineShapeじゃなくてShapeを貼り付ければ問題にならない。 Set shp=Documents("hoge.doc").Shapes.AddPicture("C:¥fuga.jpg") shp.WrapText.Type wdWrapThrough Shapeは位置を指定出来ないといっても何文字目という意味で指定出来ないだけで、Left、Top、Width、Heightでの位置指定はできる。 今回の問題もSelectionだったな。 何のオブジェクトを触ってるのかはっきりさせずに組んでるからエラーの意味も分からない。 : デフォルトの名無しさん (オッペケ Srd1-FHhe) [] 2017/11/20(月) 12:21:51.39:phW/Gatbr そらそれが本来の使い方やもの なに勘違いしてニヤニヤしとんねんお前 気色悪い奴だな : デフォルトの名無しさん (アウアウオー Saca-6S2d) [sage] 2017/11/20(月) 13:11:30.03:tncAZsVja Jカスこんなところでも下らねー釣りしてんじゃねえよ : デフォルトの名無しさん (ワッチョイ 869f-z9KJ) [sage] 2017/11/20(月) 15:08:27.78:6BLE5ZLY0 WordVBAで使いにくいのは記録出来ても良さそうなものが記録出来ない所。 ただ、これはこっちが出来ても良さそうと勝手に思ってるだけでMS的にはまずい何かが有るのかもしれない。 それよりも困るのは Debug.Print Typename(hoge) とやってSelectionが帰ってくる所。 型を知りたいのにSelectionは無いだろう。 : デフォルトの名無しさん (アウアウオー Saca-6S2d) [sage] 2017/11/20(月) 17:44:20.81:PC8rzjhFa 型名調べる関数もうひとつあったよね あんま使わんから忘れたけど : デフォルトの名無しさん (ワッチョイ 46e9-jGnz) [] 2017/11/20(月) 19:16:12.47:3EUEsxu/0 笑ったw : デフォルトの名無しさん (ワッチョイ a961-RjUU) [] 2017/11/20(月) 19:56:44.52:HiJj2X0L0 ? typename(hoge)とやったら Emptyと出てきたぞ。 あなた↓の頭と同じでカラッポ。 : デフォルトの名無しさん (ワッチョイ 821a-2Rtq) [sage] 2017/11/20(月) 21:46:53.19:dynAF7sP0 ありがとうございます。 じつはそれで解決しました。 マクロで記録したらinlineshapeで、なんやねんこれ?と理解していなかったことが原因でした。 : デフォルトの名無しさん (ワッチョイ a960-IKRN) [] 2017/11/20(月) 22:35:57.11:bUEYENj70 前スレ943様の下記ファイル、もう一度upしていただく訳にはいきませんでしょうか。 DLしようと思いながら、失念していて、先ほどしようとしたところ消えてしまっていました。 943様、お手数をおかけしますが何卒よろしくお願いいたします。 943デフォルトの名無しさん (ワッチョイ 06e9-FqSh)2017/11/05(日) 15:01:02.75ID:2uRc+T650>>958 写真は辞めてくれ。見るのめんどくさい 出てきたからあげるわ 大体やりたいことはこれだと思う ・設定シートのB列に表示したいもの。C列は入力する文字を入れる ・入力シートのA1に「う」と入れて決定。リストが現れて「東京」「北海道」が現れるので選択する もちろん「う」じゃなくても「東」なんかでもいい。場合によってはB列に「渋谷」とかいれてもいいかもしれない ttps://dotup.org/uploda/dotup.org1380568.zip.html 自分で言うのも何だがこれ超便利。かなりオススメ : デフォルトの名無しさん (ワッチョイ 46e9-jGnz) [] 2017/11/20(月) 23:57:02.00:3EUEsxu/0 こういう時はせめてエクセルアップロードできるアップローダーぐらい探してくると良いぞ : デフォルトの名無しさん (ワッチョイ 869f-W+Hj) [sage] 2017/11/21(火) 02:44:24.85:eIBN2cFq0 www hogeをなんだと思ってる? そりゃそのまま打てばEmptyが帰ってくるだろう。 hogeで察してくれんかね。 カラッポなのは誰の頭だよ。 : デフォルトの名無しさん (ワッチョイ 068a-RuWE) [sage] 2017/11/21(火) 13:03:45.67:OSkNtsZi0 途中経過はどうでもいいから結果を教えろ って人間がどんどん増えてんだな 経営者かよ : デフォルトの名無しさん (ワッチョイ bdb5-fAsB) [sage] 2017/11/21(火) 16:28:44.72:7aGtp6cN0 結果はいいから途中経過を教えろ、なんて頭おかしいだろ何言ってんだか : デフォルトの名無しさん (アウアウオー Saca-6S2d) [sage] 2017/11/21(火) 17:41:32.87:rp//GM45a 普通は結果教えてもらうなら過程も学ぶんだよ まあ、別に学びの場じゃないけどね ただ、腐ってもプログラムだからな 結果だけ知ってもその場しのぎ以上にはならんだろ : デフォルトの名無しさん (スップ Sd22-A9yG) [] 2017/11/21(火) 18:15:13.21:22dwRLVAd 世の中は論理的にできているのにが論理的でないのはなぜなのか : デフォルトの名無しさん (ワッチョイ 46e9-IwP8) [] 2017/11/21(火) 19:38:11.84:49Yzjg710 単に逆裏待遇を理解していないだけかと : デフォルトの名無しさん (スッップ Sd22-l4/q) [sage] 2017/11/21(火) 21:45:55.72:vcSymdG+d vbaを勉強中の者です。 市販で売られている本など調べても載っていないのですが、for文で使われる変数名が「i」ですが、なぜ「i」なのですか? 「i」の意味を教えて頂けませんか? 既出でしたらすみません : デフォルトの名無しさん (ワッチョイ 02eb-Ti+n) [] 2017/11/21(火) 21:52:07.73:x41b941k0 iterationのiって事でいいじゃん : デフォルトの名無しさん (ワッチョイ 46e9-IwP8) [] 2017/11/21(火) 21:58:13.94:49Yzjg710 >167の通りだけど、もう完全に形骸化している 「i」でもいいし「ページ番号」など日本語表記でもいい ちなみに俺は「k」から「m」「l」「n」と続ける 単に見間違いにくいように : デフォルトの名無しさん (ワッチョイ 869f-HNOF) [sage] 2017/11/21(火) 22:07:12.83:L3nv/JJz0 今グーグル先生に聞いたらFORTRANからの名残だってでてきた : デフォルトの名無しさん (ワッチョイ a1f7-VFQ0) [sage] 2017/11/21(火) 22:14:29.41:wrH3tJZg0 昔読んだVBだかVBAだかの書籍にはトピックとして掲載してた書籍もあったような記憶が : デフォルトの名無しさん (スッップ Sd22-l4/q) [sage] 2017/11/21(火) 22:17:05.57:vcSymdG+d ありがとうございます! ホント助かりました! 引っ掛かり進まなかったので、これで進みます。 納得できてよかったです ありがとうございます : デフォルトの名無しさん (スッップ Sd22-l4/q) [sage] 2017/11/21(火) 22:17:55.51:vcSymdG+d さんもレスありがとう! : デフォルトの名無しさん (ワッチョイ f9b3-6S2d) [sage] 2017/11/21(火) 22:18:54.65:2WJixd7Q0 integerのiだと思ってたわ : デフォルトの名無しさん (ワッチョイ 918a-F9AU) [sage] 2017/11/21(火) 22:47:14.99:FV1Lkm8B0 数学でijkは行列などの添え字で使う。 fortranでネストしたループ回すときって、微分方程式を離散化したものを解いたりするパターンが多くて、 二次元や三次元の多次元配列を使ってるだろうから、自然とijkになる。 で、数学のiはintegerからきてる、といったぐあいでは? : デフォルトの名無しさん (スッップ Sd22-l4/q) [sage] 2017/11/21(火) 23:38:11.98:vcSymdG+d 、174 数学からなんですか?! プログラムと数学は違うものと思っていました。ありがとう : デフォルトの名無しさん (ワッチョイ 25f7-2nK2) [sage] 2017/11/22(水) 06:03:08.32:nhDpu2iz0 今から60年前にアメリカのIBM社で開発されたFORTRAN(フォートラン)というコンピューター言語があって そこで変数名の頭文字がI以降なら整数型と定義されたのが始まり ループカウンターは整数だからFOR文でもIを使ったという歴史がある 一方で昔のBASIC言語ではすべての変数が実数型というのが基本仕様だったので、Iを使う意味はあまりなかったけど、 FORTRANに憧れた世代が書き方を真似してそのまま定着した という年寄りの昔話 : デフォルトの名無しさん (ワッチョイ 918a-F9AU) [sage] 2017/11/22(水) 18:32:45.15:mA48vywq0 数学、論理学とは非常に近しいと思う。 関数型プログラミングてスタイルもあるし、 数学の証明をある程度自動化する言語もある。CoqとかAgdaとか。 VBAにもそろそろ高階関数が欲しいですね、MSさん期待してます。 : デフォルトの名無しさん (ワッチョイ e18a-8CrJ) [sage] 2017/11/22(水) 18:50:12.14:k1sKIAfY0 愛があるからかと思った : デフォルトの名無しさん (ワッチョイ bdc3-Vht8) [] 2017/11/22(水) 18:53:30.30:/wgdkUUe0 ループカウンタにi、j、kを使うようになったのはC言語の影響が一番大きい。 : デフォルトの名無しさん (アメ MMcd-b1Oe) [sage] 2017/11/22(水) 20:12:17.87:Ce6/du3cM どこまで使う? 自分はnまで。 ループ変数以外で1文字の変数は使わない。 : デフォルトの名無しさん (アウアウカー Sa49-z9KJ) [sage] 2017/11/22(水) 20:20:06.35:t2AK8w6Da 出来ればkまでにしたいね。 実際は思うようにいかなくて俺もnぐらいまで使ったことある。 でも1文字辞めることもある。 : デフォルトの名無しさん (ワッチョイ 46e9-RjUU) [] 2017/11/22(水) 20:57:00.17:fITl6ULj0 あんまり1文字変数は使わない 処理行数や処理列数などを使ってるわ 年取ると覚えるのが大変なんだよ : 答えはI〜N (ドコグロ MM41-ZIVp) [sage] 2017/11/22(水) 21:18:19.80:W0SJQGiTM > そこで変数名の頭文字がI以降なら整数型と定義されたのが始まり 嘘書くなよ... X, Y, Z が整数型とかあり得んわ : デフォルトの名無しさん (ワッチョイ f9b3-6S2d) [sage] 2017/11/22(水) 21:46:50.38:T8s4U7Y50 最近デザパタに凝っててイテレーターパターンやってるけどなかなかいいよ まあいかに多重ループしないかは大事だわ : デフォルトの名無しさん (ワッチョイ 02e7-GXP8) [sage] 2017/11/22(水) 21:49:25.89:HR2X/8WF0 イテレータと多重ループ回避って関係あったっけ? : デフォルトの名無しさん (ワッチョイ f9b3-6S2d) [sage] 2017/11/22(水) 21:55:38.62:T8s4U7Y50 いやまあ、見た目上ループ変数は減るからw よってるからよくわからんなってるわ すまん : デフォルトの名無しさん (ワッチョイ 02e7-GXP8) [sage] 2017/11/22(水) 22:48:54.39:HR2X/8WF0 VBAでイテレータパターンて難しそうだ ループをなくす、って方向の方が良さそうです。 : デフォルトの名無しさん (ワッチョイ 02e7-GXP8) [sage] 2017/11/22(水) 22:51:49.31:HR2X/8WF0 方向の方w : デフォルトの名無しさん (ワッチョイ 229c-AWKa) [] 2017/11/22(水) 23:20:15.38:pTVfJfW70 Excel2010です。 文字列を引数に文字列を返すユーザ定義関数を作りました。 アドインにしてチーム内に配布しようと思ってます。 試しに新規ブックで使ってみたところ、開くたびに変更していないのに保存確認メッセージが出るようになってしまいました。 関数の中の処理を全て消しても保存確認メッセージがでます。 文字列を返すだけの関数なので、保存確認メッセージを出ないようにしたいのですが、どうすればよいでしょうか。 : デフォルトの名無しさん (ワッチョイ bfe9-rwnT) [] 2017/11/23(木) 00:02:49.97:Kpe6aW6i0 中身を見ないとわからない Function Foo(bar As Long) Foo = bar * 2 End Function と作ってみたけど >開くたびに変更していないのに保存確認メッセージが出るようになってしまいました。 この減少は起きなかったよ 何か別の所に原因があると思う : デフォルトの名無しさん (ワッチョイ 079f-6+xn) [sage] 2017/11/23(木) 06:39:11.72:Y2T7cP8D0 それって要するにvlookupの事? : デフォルトの名無しさん (ワッチョイ 7f3f-h3cN) [] 2017/11/23(木) 13:05:29.27:IQVJTYbd0 簡単に書くとこんな感じの関数です。 Function Kubun(code as string) as string if (left(code,3) = "123") then Kubun = "A" end function if文が大量に続くので共通化してアドインで配布しようと思ってます。 これをKubun.xlbとしてアドインフォルダに保存しました。 新規BookでセルA1に123、セルB1に =Kubun(A1) と入力したところ セルB1にAと表示され、関数は機能しました。 その後保存した新規Bookを開き何もせず閉じようとすると保存確認メッセージがでます。 : デフォルトの名無しさん (ワッチョイ 5feb-g2WY) [] 2017/11/23(木) 13:22:13.30:fJlhhdGs0 再計算されてるから 値は変化しないけどセルの内容は更新されていると予想 : デフォルトの名無しさん (ワッチョイ 7f93-ULKC) [sage] 2017/11/23(木) 13:42:02.49:UTTVtMan0 アトインって *.xla じゃなかったっけ? *.xlb だとなんかいいことあるの? (ツールバー設定とかを記憶するファイルだと思ってた) : デフォルトの名無しさん (スップ Sd7f-cUxe) [] 2017/11/23(木) 14:06:43.11:1VQF43Qed xlbってなんだっけ? xlamじゃないの? : デフォルトの名無しさん (スップ Sd7f-cUxe) [] 2017/11/23(木) 14:07:06.07:1VQF43Qed かぶった : デフォルトの名無しさん (ワッチョイ 7f3f-h3cN) [] 2017/11/23(木) 14:35:16.43:IQVJTYbd0 すいません。拡張子は違ったかもしれません。 : デフォルトの名無しさん (ワッチョイ 67f7-hcjg) [sage] 2017/11/23(木) 15:49:16.74:AvEDQSYF0 ネットで検索してみると回答は氏の「再計算」で正解だと思うよ そのユーザー定義関数の中で使ってる関数の中に再計算が発生する関数が含まれているのでは? 簡単な例でいくと新規ブックのセルA1に=TODAY()と入力し確定、そのブックを保存し閉じる そのブックを開くとTODAY関数による再計算が発生するため何もせずに閉じようとしても保存確認出る それと同じことでは : デフォルトの名無しさん (ワッチョイ 7f3f-h3cN) [] 2017/11/23(木) 17:02:33.93:IQVJTYbd0 192の通り使っているのはif文とLeft関数だけです。 試しに関数の中の処理を全て消してみたのですが、 状況は変わりませんでした。 : デフォルトの名無しさん (アークセー Sxfb-ECpi) [sage] 2017/11/23(木) 17:02:38.88:mWIv05A8x 要らない : デフォルトの名無しさん (ワッチョイ bf9d-h3cN) [sage] 2017/11/23(木) 17:22:13.82:k3nQdCAx0 おそらく A1が変わってないときに、=Kubun(A1) という式が必ず同じ値を返すという「保証」ができないので B1セルが変更されている可能性を排除できない ということで変更されている(可能性がある)と判断されてる ユーザ定義関数は中身チェックしないで非決定的だって判断だな シート開くときに再計算するかどうかのオプション設定なかったっけ?最悪手動かな : デフォルトの名無しさん (ササクッテロレ Spfb-g2WY) [] 2017/11/23(木) 17:30:51.41:JDomtUrWp その関数にDebug.print 文を仕込んでおいて 呼ばれたかどうかを確認してみたら? : デフォルトの名無しさん (ワッチョイ 7f3f-h3cN) [] 2017/11/23(木) 19:42:47.05:IQVJTYbd0 保存確認メッセージを防ぐ方法はないですかね? 関数は呼ばれていますが、それだと何か方法ありますか? : デフォルトの名無しさん (ワッチョイ 5feb-g2WY) [] 2017/11/23(木) 20:00:32.08:fJlhhdGs0 関数が呼ばれると言うことは変更されると言うことだから 保存確認ダイアログが出るのが普通 savedプロパティを変更する方法とか calculationプロパティをマニュアルにする方法とか 方法はあるかもしれないけど 他の問題が起きるようになるかもしれない : デフォルトの名無しさん (ワッチョイ 078a-lrN+) [sage] 2017/11/23(木) 23:21:24.29:SB9DcOfL0 Application.DisplayAlerts = False のこと? : デフォルトの名無しさん (ワッチョイ 27a4-cUCq) [] 2017/11/24(金) 11:41:27.83:h1FhSyIp0 質問です。Excel 2016で、Autofilerされたシートの内容を参照するために (wsはワークシートオブジェクトです) Debug.Print ws.AutoFilterMode →この結果は True Debug.Print ws.AutoFilter.FilterMode →この結果も True Dim rgFilter As Range Set rgFilter = ws.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible) For Each e In rgFilter Debug.Print e Next e こんな感じで参照しようとしてるんですが、 参照してるシートでフィルターが掛かっていても、いなくても 同じように全件(25行なら25行)がイミディエイトに表示されます。 絞り込まれた結果のみを表示するためにはどうしたら良いのでしょうか? : デフォルトの名無しさん (ワッチョイ 67f7-3JRZ) [sage] 2017/11/24(金) 11:52:22.18:BOT2k7iW0 Set rgFilter = ws.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible) : デフォルトの名無しさん (ワッチョイ 27a4-cUCq) [sage] 2017/11/24(金) 12:05:42.58:h1FhSyIp0 素早いご回答ありがとうございます。 修正してみましたが、今度は絞込みあり/なし何れも1行だけになりました 何だか難しい操作ですねえ… : デフォルトの名無しさん (ワッチョイ 27a4-cUCq) [sage] 2017/11/24(金) 12:12:04.66:h1FhSyIp0 Dim MaxRow As Long MaxRow = ws.Range("A" & Rows.Count).End(xlUp).row これを追加して、 Set rgFilter = ws.Range("A1:A" & MaxRow).CurrentRegion.SpecialCells(xlCellTypeVisible) にしてみても、結果はと同じになりました。 んー謎です : デフォルトの名無しさん (アウアウイー Safb-2sqJ) [sage] 2017/11/24(金) 13:34:47.29:bxAooAvMa あるにはあるけどクソめんどくさいぞ すべてのセルの初期値保持しといて、閉じるときに確認して値に変更なければsavedをtrueにしてから閉じる、とかね : デフォルトの名無しさん (イモイモ Se0f-u0W/) [] 2017/11/24(金) 16:52:13.42:x6NJ51zce Sheets("Sheet1").Columns(2).Insert Shift:=xlToLeft Sheets("Sheet1").Columns(2).Insert Shift:=xlToRight この二行の動作の差が分からないので 違いを教えてください : デフォルトの名無しさん (JP 0Heb-ULKC) [sage] 2017/11/24(金) 17:34:32.78:HKDmIDHRH 現在のcolumns(2)の中身が左にずれるか、そのままか、かな? 当てずっぽうだけど。 : デフォルトの名無しさん (ワッチョイ 5f58-h3cN) [] 2017/11/24(金) 19:18:42.44:V+PY16OM0 アドインをあきらめます。 ありがとうございました。 : デフォルトの名無しさん (アウアウオー Sa1f-h3cN) [] 2017/11/25(土) 12:49:09.41:roqaXNhOa エクセルVBAですがあるシートで入力し別のシートに転記するというコードを記入しているのですが For文でやろうとするとうまくいきません。元々のシートの行が11行目から始まり転記先のシートが2行目から始まるのでネストを使って以下のようにコードを組んでみたのですが2行目の入力データが転記先のデータに2行追加されてしまいました。 1行目と2行目はそれぞれ別のデータが記述されておりそのまま転記できるようなコードにしたいです。 もしかしたら、そもそもforだとだめなのかもしれません。ちなみに入力するデータが11行目から始まり終わりは20行目で終わります。 がとりあえず繰り返し構文でできればかまいません。下記のコードをどう変えればいいか教えてください。 Sub 登録() Set syougai = Sheets("障害記録") 'シート名にて指定しているので変更しない事 Set itigi = Sheets("一時データ") 'シート名にて指定しているので変更しない事 Const hiduke As Long = 19 '日付列の定数 Const gouki As Long = 17 '号機の列の定数 Const era As Long = 18 'エラーコードの列の定数 Const hyou1 As Long = 11 '障害集計表上の定数 Const kisyu As Long = 21 Const syuukei1 As Long = 21 For i = 2 To 3 For j = 11 To 12 itigi.Cells(i, 1).Value = syougai.Cells(j, hiduke).Value '日付 itigi.Cells(i, 2).Value = syougai.Cells(j, gouki).Value '号機 itigi.Cells(i, 3).Value = syougai.Cells(j, kisyu).Value '機種 itigi.Cells(i, 4).Value = syougai.Cells(j, era).Value 'エラーコード itigi.Cells(i, 5).Value = syougai.Cells(j, syuukei1).Value '集計データ i = i + 1 j = j + 1 Next j Next i End Sub : デフォルトの名無しさん (ワッチョイ 7f81-h3cN) [] 2017/11/25(土) 13:36:20.17:fp6T8Ewd0 〉〉214 ネストの使い方間違ってると思うのですがどう直せばいいのかわかりません。 : デフォルトの名無しさん (ワッチョイ 5fe7-8Ex9) [sage] 2017/11/25(土) 13:39:02.15:Sg1k8TV00 itigi じゃなくて itiji にしろ シート名「にて」はやめてシート名「で」にしろ i = i + 1 と j = j + 1 は不要なので消せ : デフォルトの名無しさん (ワッチョイ bf9f-5mWG) [sage] 2017/11/25(土) 13:55:20.06:QhU2UVSF0 単純にシートで開始行がずれているだけなら For i = 2 to 3 itigi.Cells(i, 1).Value = syougai.Cells(i +9, hiduke).Value 以下略 Next でいいんじゃないでしょうか ループはネストすると 内側のループだけ全部回して外に抜ける、を外のループの回数 だから、ネストでは意図した動作にならないでしょう も言っているけど、Nextで変数に勝手に+1されるから足さなくていい : デフォルトの名無しさん (ワッチョイ 7f81-h3cN) [] 2017/11/25(土) 14:08:02.51:fp6T8Ewd0 ありがとうございました。 できました。 : デフォルトの名無しさん (スップ Sdff-cUxe) [] 2017/11/25(土) 15:25:06.65:P/RTUJJid てか hiduke なんて変数名使うくらいなら「日付」のほうが10倍まし : デフォルトの名無しさん (アークセー Sxfb-aTZ7) [sage] 2017/11/25(土) 17:03:29.39:dlgn0p0Vx そもそもVBAでやることなのかな 転記先の一時データのシートのセルに障害記録シートのセルを参照する式を書くだけで良くない? : デフォルトの名無しさん (ワッチョイ 079f-6+xn) [sage] 2017/11/25(土) 17:17:31.37:4suMRhlB0 変数名ぐらい自由にしてやれw : デフォルトの名無しさん (ワッチョイ 47b3-2sqJ) [sage] 2017/11/25(土) 17:23:34.66:Yv0FOuti0 値を取得しながら転記しようとするから混乱する コレクションなり配列なりに一回格納してから転記するようにすればネスト要らん : デフォルトの名無しさん (ワッチョイ 47b3-2sqJ) [sage] 2017/11/25(土) 17:30:52.78:Yv0FOuti0 変数名は大事でしょ こいつの変数の付け方は最悪に近いわ 代入の式見なかったらなんのことだかわからねー : デフォルトの名無しさん (ワッチョイ 5fb3-CDhT) [sage] 2017/11/25(土) 17:32:47.09:+Jz8ZPqE0 本人できたって言ってるのにグダグダ言う奴ウザイわ : デフォルトの名無しさん (ワッチョイ 8711-c4IJ) [sage] 2017/11/25(土) 17:35:56.02:ISZ6M3sb0 hidukeと日付のどちらか選べと言われたら、hidikeを選ぶ。 : デフォルトの名無しさん (スップ Sd7f-P8Uf) [sage] 2017/11/25(土) 17:37:28.74:S5e4mFeJd 仕事内容を記録するエクセルを作成したく、 シート名は各個人名でフォームを開くボタン設置。 登録用に必要項目をフォームで作り、転記するサンプルマクロを書いたんですが、今後必要項目が増えたり、減ったりしたときに人数分フォームを弄ったりマクロ書き換えるのは面倒ななんですけど、一個をものを共有し使用するにはどうしたらいいですか? 各個人のエクセルを開き、作ったボタンで共通のエクセルを開きフォームを開いて転記させるとか? 共通のエクセルを読み取り専用で開き書き込む時に自分のエクセルを開いて転記させるとか? なんかうまいやり方ないですか? : デフォルトの名無しさん (ワッチョイ 5fe7-8Ex9) [sage] 2017/11/25(土) 17:42:32.82:Sg1k8TV00 何が言いたいんだW : デフォルトの名無しさん (ワッチョイ 47b3-g2WY) [] 2017/11/25(土) 17:52:49.62:M1jU9gED0 シート毎つまり人毎にボタンを作るなら そのボタンをクリックした時にその人独自の値をグローバル変数とかに代入して フォームは共通のものを呼び出す フォームに入力されたものを書き込む時は さっきのグローバル変数を見て 書き込み先のシートとかを特定する : デフォルトの名無しさん (ワッチョイ 47b3-g2WY) [] 2017/11/25(土) 17:53:40.22:M1jU9gED0 同時に複数の人がそのエクセルファイルを使わない事が前提だけど : デフォルトの名無しさん (スップ Sd7f-P8Uf) [sage] 2017/11/25(土) 18:31:33.42:S5e4mFeJd 同時に開くことがあるんですよ。 : デフォルトの名無しさん (ワッチョイ 5faf-5mWG) [sage] 2017/11/25(土) 18:33:58.83:MqKvnHus0 一つのエクセルファイルを複数人で同時に使うのはいろいろ大変だと思う。 共有共通にせず個人毎に違うファイルを使ってもらって、 仕事内容記録フォルダに入ってるファイル全てをまとめて集計するマクロを作った方がよさそ。 : デフォルトの名無しさん (ワッチョイ 5fe7-8Ex9) [sage] 2017/11/25(土) 18:34:51.02:Sg1k8TV00 データはなんでもいいからDBに書き込んでエクセルはインプット画面として割り切りなさい マジで : デフォルトの名無しさん (ワッチョイ 47b3-2sqJ) [sage] 2017/11/25(土) 18:38:42.16:Yv0FOuti0 エクセルの共有はマジで地雷 運用を見直した方がいい : デフォルトの名無しさん (ササクッテロラ Spfb-g2WY) [] 2017/11/25(土) 19:34:05.10:PrfYax++p 入力するのが一人で他の人が見るだけなら問題ない 複数人が同時に書き込むならエクセルじゃなくて ウェブアプリとかにした方が良いと思う : デフォルトの名無しさん (ワッチョイ 7fb9-+V5r) [sage] 2017/11/25(土) 19:37:11.17:T5+qbkCf0 mdbを複数ユーザーで同時に掴めるなら、SQLでデータを投げれば動作するんじゃないの。 入力フォーム作りがクソ面倒くさいからエクセルでやるのは愚策中の愚策なのは確かだけど。 : デフォルトの名無しさん (ワッチョイ 079f-6+xn) [sage] 2017/11/25(土) 19:44:15.61:4suMRhlB0 健康のためなら死ねるタイプ?w ごめんけど理解不能 : デフォルトの名無しさん (ワッチョイ 079f-6+xn) [sage] 2017/11/25(土) 19:46:52.39:4suMRhlB0 どうしてもエクセルだけでやりたいなら、フォームとデータでファイル別けるべきだね : デフォルトの名無しさん (ワッチョイ 47b3-2sqJ) [sage] 2017/11/25(土) 20:15:23.25:Yv0FOuti0 いや、常識だろ 自分でメンテするにしたって嫌だわ : デフォルトの名無しさん (ワッチョイ dfeb-g2WY) [] 2017/11/25(土) 20:24:47.32:fZkth5mu0 フォームボタンをクリックした時に グローバル変数とかに時刻なり、その人のIDなりを記録して 編集中である事が分かるようにしておく 書き込んだらクリアする 他の人がフォームボタンをクリックしたら 編集中かどうかチェックして 編集中なら後で再実行するようにダイアログを出す : デフォルトの名無しさん (ワッチョイ 079f-6+xn) [sage] 2017/11/25(土) 20:38:06.48:4suMRhlB0 お前の常識とか知らんし興味もない。 他人の変数名にケチ付けるのは常識じゃなくてエゴだろ : デフォルトの名無しさん (ワッチョイ 7f80-xsLR) [sage] 2017/11/25(土) 20:40:07.39:99QBz+fh0 React では、データアクセス(CRUD)部分は、 Flux の、Store という部分で、 UI とは完全に分離させている nmp の、immutable パッケージで、データを変更不能にしたり : デフォルトの名無しさん (ワッチョイ 079f-6+xn) [sage] 2017/11/25(土) 20:41:41.46:4suMRhlB0 日本語でおk : デフォルトの名無しさん (アウアウカー Sadb-n8us) [sage] 2017/11/25(土) 21:19:48.45:d0mIe/tRa 変数名は結構考えるけどな。 普段なら辞書サイトでその意味の英単語から付けることが多い。 API使えば変数名の重要性が分かる。 : デフォルトの名無しさん (ワッチョイ 5fe7-8Ex9) [sage] 2017/11/25(土) 21:53:57.63:Sg1k8TV00 それは変数名と言うより引数名でしょ? それだったら確かに大事 : デフォルトの名無しさん (ワッチョイ 7fb9-+V5r) [sage] 2017/11/25(土) 22:00:33.02:T5+qbkCf0 個人的に引数含む変数名に半角英字は避けるように徹底してる。 予約語と被らなくなるし徹底すれば読みやすいしね。 一般的に、名前に半角英数使うのはコンパイラが2バイト文字対応していない事が理由なんで、 対応しているコンパイラには積極的に2バイト文字で投げた方がいい。 : デフォルトの名無しさん (ワッチョイ 47b3-2sqJ) [sage] 2017/11/25(土) 23:35:03.26:Yv0FOuti0 一年前に作ったコードの宣言部分と代入部分見ずになんの値か把握できる自信があるならどうぞ まだシステムハンガリアンの方がポリシーあるだけマシ : デフォルトの名無しさん (ワッチョイ 47b3-2sqJ) [sage] 2017/11/25(土) 23:36:51.22:Yv0FOuti0 レスの相手間違えたわ に対するレスね : デフォルトの名無しさん (ワッチョイ 5fe7-8Ex9) [sage] 2017/11/25(土) 23:47:28.66:Sg1k8TV00 俺がで言った意図は、「引数名は大事だがローカル変数名はたいして大事じゃない」という意味だ。 それに反論しているのかな? : デフォルトの名無しさん (スプッッ Sd1f-3JRZ) [sage] 2017/11/26(日) 09:00:43.39:/OBEl30Ad 大事じゃない変数なんてないんだよ みんなそれぞれに役割があって、一生懸命に生きてるんだから : デフォルトの名無しさん (ワッチョイ 47b3-2sqJ) [sage] 2017/11/26(日) 09:30:00.33:ci9PkC0t0 それは違うだろ まあ、使い捨てのテストなんかは適当にやるけど 長い変数名が嫌なのは打つのが面倒だからなんだろうけど、そもそも同じ変数が何度も出てくる時点でリファクタリングの臭いがするわけでな : デフォルトの名無しさん (ワッチョイ 5fe7-8Ex9) [sage] 2017/11/26(日) 11:10:58.75:A1ZwwN/70 ローカル変数に限っていうなら、上の方がよくて下に行くにしたがって悪くなると思っている ・ローカル変数がない ・tmp とか a とか x とかいう名前で十分わかる ・適切な名前をつけることでよくわかる ・適切な名前がつけられていないことで混乱する ・適切な名前がつけられているにもかかわらず混乱する そうだよね? : デフォルトの名無しさん (ワッチョイ 27af-tzt8) [sage] 2017/11/26(日) 11:15:24.53:hep87Sd80 >・適切な名前をつけることでよくわかる >・適切な名前がつけられていないことで混乱する 同じことじゃね? : デフォルトの名無しさん (ワッチョイ 27e3-tRV8) [sage] 2017/11/26(日) 11:16:38.23:KMInKg0R0 ソンタクして変数名にvarを採用 : デフォルトの名無しさん (ワッチョイ 5fe7-8Ex9) [sage] 2017/11/26(日) 11:24:16.70:A1ZwwN/70 いや、 やれば改善する可能性があるのにやっていない状態、ということで下位になっている : デフォルトの名無しさん (ドコグロ MM1f-CDhT) [sage] 2017/11/26(日) 11:44:51.98:DTyNodR2M 底辺のお前も頑張ってるもんな w : デフォルトの名無しさん (ワッチョイ 67f7-3JRZ) [sage] 2017/11/26(日) 11:50:05.48:ApNVvKeX0 ローカル変数がないの意味がよくわからん 値渡しの引数はローカル変数なんだけど それを除外したとしても、変数なしで書ける処理は限られてくるし : デフォルトの名無しさん (ワッチョイ 5fb3-CDhT) [sage] 2017/11/26(日) 12:54:24.61:pGcZHtwF0 不要な変数を作るなってことだろ そのまま代入すりゃいいのにみたいにいったん変数に格納したがる奴は一定数いる : デフォルトの名無しさん (ワッチョイ 079f-6+xn) [sage] 2017/11/26(日) 12:56:36.30:OTnHPyYR0 VBAからどんどん離れて公開オナニーになってきた : デフォルトの名無しさん (ワッチョイ 47b3-2sqJ) [sage] 2017/11/26(日) 13:04:15.84:ci9PkC0t0 tmpとか、座標系の短い変数はきちっと関数化して処理の分断ができてるときに限るけどね 大体そんなもんじゃないかな 配列に格納してから云々はそれぞれの処理を独立させることであとから見通しがよくなるんだよ たとえば、代入する値に条件付きで何らかの処理を加えなきゃいけなくなったときなんかにループしながら直接吐き出してるとネストが深くなって可読性が低くなる それぞれ独立してれば関数化するのも楽だしな : デフォルトの名無しさん (ワッチョイ 5fb3-CDhT) [sage] 2017/11/26(日) 13:33:08.74:pGcZHtwF0 > たとえば、代入する値に条件付きで何らかの処理を加えなきゃいけなくなったとき その時にやればいいだけ : デフォルトの名無しさん (ワッチョイ 47b3-2sqJ) [sage] 2017/11/26(日) 14:16:29.61:ci9PkC0t0 一回変数にいれることでそれがなんの値か、というのを明示するって意味もある 意味があるからやってんだよ : デフォルトの名無しさん (ワッチョイ 5fb3-CDhT) [sage] 2017/11/26(日) 14:40:03.00:pGcZHtwF0 ならコメントで十分 : デフォルトの名無しさん (ワッチョイ 5fe7-8Ex9) [sage] 2017/11/26(日) 15:20:43.89:A1ZwwN/70 日付が変わっているからIDは違うが、元の俺の発言はの >「引数名は大事だがローカル変数名はたいして大事じゃない」という意味だ。 なんだよね。 つまり引数は別として狭い意味のローカル変数について語っている。 それと、>変数なしで書ける処理は限られてくるし については、良い〜悪いの序列の話なので、「変数なしで書けるくらいスコープが狭い方が良い」ということさ。 : デフォルトの名無しさん (アウアウカー Sadb-tRV8) [sage] 2017/11/26(日) 16:18:08.52:t/ZpdAAca ( ・ω・)∩シツモーン 範囲A1:C10の値をまとめてD1:F10に代入するときにさ 直接=で結ぶと駄目で 一旦変数で tmp=range(A1:C10).value range(D1:F10)=tmp とかいうふうにすればオッケーなのって何でなのん? : デフォルトの名無しさん (ワッチョイ 5fe7-8Ex9) [sage] 2017/11/26(日) 16:56:09.10:A1ZwwN/70 Range(A1:C10).Value = Range(D1:F10).Value でいけると思うけど? : デフォルトの名無しさん (ワッチョイ 5fe7-8Ex9) [sage] 2017/11/26(日) 17:06:14.25:A1ZwwN/70 ごめん逆 のやりたいことは Range(D1:F10).Value = Range(A1:C10).Value だね : デフォルトの名無しさん (ワッチョイ 67f7-3JRZ) [sage] 2017/11/26(日) 17:18:28.93:ApNVvKeX0 値のコピーは Range("D1:F10") = Range("A1:C10").Value : デフォルトの名無しさん (アウアウイー Safb-2sqJ) [sage] 2017/11/27(月) 09:03:15.77:3l0DMD54a 範囲が同じなら R1.Value=R2.Valueで行けるな、普通に Set R1=R2はなんか無理 R1=R2でいけない理由はよくわからん RangeオブジェクトのデフォルトプロパティってValueだよね? : デフォルトの名無しさん (ワッチョイ bf9d-XMpE) [sage] 2017/11/27(月) 12:39:02.79:Hzamsy590 Rangeの既定のプロパティは、ドキュメント上だとItem 実際はちょっとトリックがあって、_Defaultっていう隠しプロパティ こいつがアドレス指定しない場合はValueを返す : デフォルトの名無しさん (ワッチョイ bf9f-n8us) [sage] 2017/11/27(月) 22:21:45.18:HF1f2kGW0 Setを使うということはオブジェクトということだぞ。 それはRangeそのものを代入することを意味する。 A1セルにB1セルを代入など出来よう筈が無い。 A1セルのアドレスがB1? 意味不明だろ。 : デフォルトの名無しさん (オイコラミネオ MM4f-6+xn) [sage] 2017/11/27(月) 22:54:13.44:scsxtpuJM indirectの悪口はそこまでだ : デフォルトの名無しさん (ワッチョイ 5faf-5mWG) [sage] 2017/11/27(月) 23:55:45.37:++h0dxh80 indirectが未だに理解できない : デフォルトの名無しさん (ワッチョイ 47b3-2sqJ) [sage] 2017/11/27(月) 23:58:34.84:VuuuCAGm0 rangeオブジェクトの実体はアドレス情報ってことか? : デフォルトの名無しさん (ワッチョイ bf9f-n8us) [sage] 2017/11/28(火) 02:02:42.04:+NcnLu/Q0 ??? それだけじゃねーだろ。 が、それも含むのは当然。 : デフォルトの名無しさん (ワッチョイ 079f-6+xn) [sage] 2017/11/28(火) 07:27:08.64:ZnyBsd4x0 indirectとかsumproductとか、便利なんだけどいまいちよく解らんよな。 : デフォルトの名無しさん (ワッチョイ 078a-lrN+) [sage] 2017/11/28(火) 09:30:34.94:PHeqRDr40 忘れちまえよindirectの事なんか : デフォルトの名無しさん (スップ Sd7f-cUxe) [] 2017/11/28(火) 09:41:03.64:/j8R3q5Od Set の左辺は変数だから当然と言えば当然 A1セル自体は変数じゃなくてオブジェクトだからな : デフォルトの名無しさん (アウアウイー Safb-2sqJ) [sage] 2017/11/28(火) 10:01:09.63:mtOclWiza いやまあ、セル同士を直接セットが無理っぽいのは何となく感覚でわかるんだが、どういう動きでそうなってんのかなーって気になるわけよ : デフォルトの名無しさん (ワッチョイ 7fb9-+V5r) [sage] 2017/11/28(火) 12:43:56.96:ZLcA5r8L0 Range()みたいなのって返却値がRangeクラスなだけあってRange()自体は関数だから : デフォルトの名無しさん (ワッチョイ 67f7-3JRZ) [sage] 2017/11/28(火) 14:06:44.13:WkhkCF1D0 Rangeオブジェクト Rangeプロパティ Range関数 Rangeでチン これが区別できれば完璧 : デフォルトの名無しさん (バットンキン MM3f-wNoG) [sage] 2017/11/28(火) 22:19:20.97:0EijvfTXM ら...らんげ? (´・ω・`)b : デフォルトの名無しさん (ワッチョイ 47b3-2sqJ) [sage] 2017/11/29(水) 19:36:16.84:vIwO7IkJ0 getRangeにしとけよな 紛らわしいわ : デフォルトの名無しさん (アウアウオー Sa12-9GJZ) [] 2017/11/30(木) 20:52:21.44:Acf/eaNYa リストを絞り込み別のリストで1行だけを表示できるようにしたらどうしたらいいでしょうか? わかりやすくいうと、sheet1にA1からZ1000までのリスト置き、それを何らかの方法で絞込 sheet2のEの1にE列の絞り込んだ1行目をEの2にF列の1行目を表示し次へを押すと2行目を表示するようにしたい オートフィルみたいなことですが表示したいセルが文文章で多くそのセルだけを表示できるようにしたいです。 1行だけならなんとなくわかるのですが次の行にコマンドボタンを押すことで表示する方法はイメージできません。 for文ならiを使えばいいんでしょうけどやりたいことと違う : デフォルトの名無しさん (ワッチョイ 66b9-MbHU) [sage] 2017/11/30(木) 21:50:06.23:ECoRVPVY0 Find関数使って検索してヒットした行数を返すようにして、 受け取った行数を元に情報を取得、次へボタンはFindNextにしておく。 というのが一番簡単かなぁ。本当はExcelじゃなくてAccessで扱う方がやりやすいんだけど。 : デフォルトの名無しさん (ワッチョイ 2aaf-1sOs) [] 2017/12/01(金) 14:32:31.35:4uYh51s/0 以下不明点を教えて 1なぜ変数を初期化するのか? 2なぜNextjでjだけループが終わるのか? 3If Hantei Then (もしも変数の場合は。。。) もはや意味がわからない 初心者にもわかりやすく答えよ Sub CorrectCode() Dim i As Long Dim j As Long Dim Hantei As Boolean '変数の値を初期化する Hantei = False For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row For j = 2 To Cells(Rows.Count, 3).End(xlUp).Row If Cells(i, 1) = Cells(j, 3) Then '変数に"True"を代入する Hantei = True Exit For End If Next j If Hantei Then '変数の値を"False"に戻す Hantei = False Else 'セルの背景色を変える(チェックする) Cells(i, 1).Interior.ColorIndex = 6 End If Next i End Sub : デフォルトの名無しさん (ワッチョイ 66b9-MbHU) [sage] 2017/12/01(金) 14:54:37.77:RC6w6Z/F0 Next j の捉え方からすると、そもそも実行の順番が分かっていないようなので基礎からやる事をおすすめする。 : デフォルトの名無しさん (ワッチョイ 2aaf-1sOs) [] 2017/12/01(金) 15:05:39.92:4uYh51s/0 俺なりに日本語訳してみた 間違っていたら教えてくれ VBA初めて3日です 基礎は本読んでるからわかっている 変数宣言 変数に初期値を入れる わかりやすいように 変数iは2から一番下からみて最初に値の入ってセルまでをループする 変数jも同様 もしもA列とC列にループする上で同じのが見つかったら 変数にTUREを入れる そしてループを抜ける そんでまたjのループを繰り返す もしも変数がTUREをもっていたら FALSEに変える → なぜ? セルの色を変える そんでiのループを繰り返す : デフォルトの名無しさん (ワッチョイ eab3-JjO2) [sage] 2017/12/01(金) 15:48:12.50:AGjDU3vg0 初期値をfalseにする理由 trueの時は色づけという流れにしたいので、予めfalseにしておく必要がある boolean型の初期値はtrueなので。 途中でfalseを入れる理由 i=1 のままで j を最終行までループさせてチェック その次に i=2 にして j を同じく最終行までループさせてチェックするのだが i=1 でのチェックが終わった結果 true なら i=2 でのチェックに備えて false に初期化する必要がある これは基本的に最初の初期化と同じ考え方 : デフォルトの名無しさん (エーイモ SEea-ZQia) [sage] 2017/12/01(金) 15:49:27.01:Mw452gW7E Hanteiの初期化、j のループの直前に置けばIf文の後の変数初期化がいらなくなる気がする・・・ : デフォルトの名無しさん (ワッチョイ 2aaf-1sOs) [] 2017/12/01(金) 16:20:04.74:4uYh51s/0 なるほどわかりやすい このプログラムを日本語化して : デフォルトの名無しさん (ワッチョイ 9e9f-FJWj) [sage] 2017/12/01(金) 16:42:02.13:xc+Vk5Dr0 最初の変数初期化は全く必要無い。 そもそもこういうBooleanな変数を用意することに疑問。 こういう変数は、どうにもそれが無いとプログラムが組み立てられない時に使うべきで、出来るなら使わない方向で組み立てるべき。 そして、やってる内容を見ればこんなもの使わない方向で組み立てられる。 こういうコードはやりたいことを論理的につめられていない時に安易に書き出してしまった時になりやすい。 はっきり言ってクソコード。 全く参考にならん。 1.最初の初期化はいらん。 宣言後の初期値はFalseだから。 逆に初期値をTrueにする場合は初期化が必要。 途中の初期化については、jに関する1つの処理が終わった時にTrueになってたら次の処理の結果がおかしくなるから必要。 2.Exit Forのことを言ってるなら最も内側のFor Nextから抜けるからとしか言えん。仕様だね。 3.If〜Thenは〜がTrueかどうかを判定している。 If i=0 Thenはiが0だったらと考えがちだが正しくはi=0の文がTrueかどうかを判定している。 イミディエイトウィンドウに?(10=10)と入力してEnterキーを押すとTrueとなるし?(10=5)と入力してEnterキーを押すとFalseになる。 : デフォルトの名無しさん (アウアウイー Sa7d-dPl8) [sage] 2017/12/01(金) 17:52:43.75:P9JEW6xna 同じこといってるかもしれんけどこの場合変数Hanteiが丸々要らない if文の中にセルの色変更のコードを書けばいい 仮に、この変数がいるとしてもどんな値が入っててもどうせfalseにするんだからif分岐してる意味がわからない もっと言うとHanteiとかいう変数名がクソ過ぎる なんの判定かさっぱりわからん canChangeColorとかnotMatchValueとかしとけば目的が分かりやすいのに : デフォルトの名無しさん (ワッチョイ 66b9-MbHU) [sage] 2017/12/01(金) 19:09:05.50:RC6w6Z/F0 A列の各セルの情報と合致するものが、C列に一件も無かった場合、 次に合致するデータが現れるまでA列の背景色を変え続ける という処理なのでHanteiが要らない様に書き換えるって難しい気がするんだけど。 : デフォルトの名無しさん (アウアウイー Sa7d-dPl8) [sage] 2017/12/01(金) 19:13:14.77:P9JEW6xna ごめん、そこちゃんと読み込めてなかったわ 一致したら変えると勘違いした なんにしてもフラグの初期化は頭かケツでいいと思うけど : デフォルトの名無しさん (ワッチョイ 2aaf-1sOs) [] 2017/12/01(金) 19:49:15.65:4uYh51s/0 ちなみにこのコードはVBAエキスパート公式のだよ : デフォルトの名無しさん (ワッチョイ 2aaf-JjO2) [] 2017/12/01(金) 20:08:56.93:4uYh51s/0 似たようなソースコードを作ってみました なぜだかエラーがでます Sub test() Dim i As Long Dim j As Long Dim U As Long For i = 1 To Cells(Rows.Count, 1).End(xUp).Row For j = 1 To Cells(Rows.Count, 3).End(xUp).Row If Cells(i, 1) = Cells(j, 3) Then U = 1 End If Next j If U = 1 Then U = 0 Else Cells(j, 3).ColorIndex = 3 End If Next i End Sub : デフォルトの名無しさん (ワッチョイ 7d8a-HgL3) [sage] 2017/12/01(金) 22:17:56.90:eRljVU/z0 xUp → xlUp : デフォルトの名無しさん (ワッチョイ 9e9f-FJWj) [sage] 2017/12/02(土) 00:44:57.80:aL/u+cy30 確かに一致したものが無かったらだからBoolean使う方が自然か。 使わなくても簡単だけど自然なBoolean使うのが正しいわ。 俺も勘違いした。 ちなみに、一致せずに全てチェックしてjのループを終了した場合のjの値を調べればBooleanはいらんし、そもそもFind使ってループ1つにしてもいらん。 この仕様を見た場合、絶対こんなコード書かないけど、俺が書くとした場合の配列にぶちこむ方法はBoolean使うのが自然だな。 ちなみにランダムで10000行にデータ入れた場合、このコードで320秒、Find使う方法で22秒、配列入れる方法で9秒だった。 : デフォルトの名無しさん (ワッチョイ eab3-JjO2) [sage] 2017/12/02(土) 01:37:25.51:jpak6rxd0 小学生がなんで3×5が15になるの?って聞いてるのに 俺なら電卓で答えだすぜ!って息巻いてる人のようにみえる 学習の初段階でつまずいてる人への的確な回答ではないわな : デフォルトの名無しさん (ワッチョイ 9e9d-9GJZ) [sage] 2017/12/02(土) 05:02:50.84:EvURnJTn0 なんつうか、これが俺の後輩なら、フローチャート書いてみって言いたくなるな もうフローチャートなんて10年以上見てないけどな >1なぜ変数を初期化するのか? あってもなくてもこのコードなら動くけど すべての言語が変数を初期化してくれるわけではないので、変数は必ず自分で初期化しろって作法もある 自分で初期化すれば、初期値を間違えて覚えていたりしてもバグになりにくいしな(Booleanの初期値はFalse) >2なぜNextjでjだけループが終わるのか? ちょっと質問の真意がわからん ForとNextは1対1で対応するんで、Next jならjのループ終端だぞ >3If Hantei Then (もしも変数の場合は。。。) もはや意味がわからない IfとThenの間に書くのは、条件式と呼ばれる式(文じゃないよ) 式の値がTrueかFlaseで条件分岐する そして変数はそれだけで式として成り立つ。この場合は変数の内容そのものが式の値 If Hantei=True Thenって書いても良いんだけど、(とくにBooleanに対する=Trueは)冗長だと言って嫌う作法もある VBAはExcelが現役だから、いつまでたっても入門者が一定数いるよなぁ はっきり言えば、今どきのブログラムの勉強にはVBAは向かないよ : デフォルトの名無しさん (ワントンキン MM7a-9NqV) [sage] 2017/12/02(土) 08:17:12.76:/lrBlva0M ブック名 C:\book.xlsx シート名 データ 説明文パート 1〜5行目 データパート ..ヘッダ A6〜Z6 ..データ A7〜Z* ..データ件数 不定 プロバイダ Microsoft.ACE.OleDB.12.0 このような設定でヘッダとデータをselect文で全件取得するにはどうすればいいですか? : デフォルトの名無しさん (ワッチョイ 9e9f-w/Tc) [sage] 2017/12/02(土) 08:26:37.96:aL/u+cy30 超初心者の話かよ。 VBAエキスパートの話じゃなかったんか? あと、If Hantei Thenを分からないって言ってるのは感覚の話で、君の説明じゃ分からないと思うぜ。 Hantei=Trueという式自体に値があって、それが正しい場合にその値は(Hantei=True)=Trueという結果になっているということが感覚的に分からないと理解できんだろ。 初心者はHanteiとTrueが等しかった場合と感覚的に理解してるんだから。 その感覚ではIf Hantei Thenが理解出来ない。 : デフォルトの名無しさん (ワッチョイ 66b9-MbHU) [sage] 2017/12/02(土) 08:27:57.05:cPyK88Sm0 SQLで任意のセル範囲を取得する場合はFROM文で取得出来たはず。 SELECT * FROM [ データ$A6:Z1000] みたいな形。 ただその条件だとデータベースに投げる前にエクセル上で整形した方が効率いいと思うけど。 : デフォルトの名無しさん (ワッチョイ 59e3-YkX8) [sage] 2017/12/02(土) 08:31:27.69:7+Ics+9V0 if hentai = true then 変態は正義 : デフォルトの名無しさん (ササクッテロロ Spbd-1sOs) [] 2017/12/02(土) 09:32:03.18:1C3LInkCp まずのプログラムを動作順に日本語訳してくれよ : デフォルトの名無しさん (ワッチョイ 9e9f-w/Tc) [sage] 2017/12/02(土) 11:12:44.97:aL/u+cy30 簡単だろ。 A列のそれぞれのセルに対してC列に同じ値が無かったら色を付けてる。 1.A2からA列の最終セルまで1つ1つのセル(以下Aiとする)について以下を繰り返す。 2.C2からC列の最終セルまでにAiと同じ値が有ったときHanteiをTrueに設定。 3.HanteiがFalseの場合(C列にAiと等しい値はなかった場合)はAiに色を付ける。 4.HanteiがTrueの場合はFalseに設定。(どんな場合だろうがFalseに設定したいが、既にFalseなのにFalseに設定する必要は無い。単にFalseに初期化してるだけ。) 5.Aiの次のセルに対して繰り返し処理続行する。 : デフォルトの名無しさん (ワッチョイ e5f7-17nN) [sage] 2017/12/02(土) 11:17:14.58:tnWofmmQ0 「VBAエキスパート」という資格の勉強をしている超初心者の話だろ? VBA始めて3日と書いてるし : デフォルトの名無しさん (ワッチョイ 66b9-MbHU) [sage] 2017/12/02(土) 11:45:34.19:cPyK88Sm0 エキスパート名乗ってる割にはバグくさいコードなんだよな。 If Not Hantei Then Cells(i, 1).Interior.ColorIndex = 6 Hantei = False っていう書き方がたぶん本来意図した仕様に近いと思うんだけども。 : デフォルトの名無しさん (ワッチョイ 7d8a-HgL3) [sage] 2017/12/02(土) 11:46:30.49:ab3YxIeg0 Hantei が Hentai に見える : デフォルトの名無しさん (ワッチョイ 9e9f-w/Tc) [sage] 2017/12/02(土) 14:09:12.13:aL/u+cy30 勉強してる奴が質問してるんであって、 このコードはそいつが書いたもんじゃない。 VBAエキスパート公式ってんだから、 資格の参考書かなんかに載ってるんだろ。 いや、この書き方自体は良くあるよ。 あんたのも間違いじゃない。 : デフォルトの名無しさん (アウアウカー Sa55-YkX8) [sage] 2017/12/02(土) 14:24:58.47:fk+w59AEa ○○でもわかる ○○のすべて ○○エキスパート ○○完全ガイド こういうタイトル付いてるのは初心者向け : デフォルトの名無しさん (ワッチョイ e5f7-17nN) [sage] 2017/12/02(土) 14:38:18.30:zmHPgLHa0 だから初心者用の本に載ってるコードが分からないと言ってるんだからこそののツッコミなわけだろ? 本に載ってるコードの評価をしてくれという質問ではない : デフォルトの名無しさん (アウアウオー Sa12-WJoG) [] 2017/12/03(日) 08:02:30.09:Q2bt/ZXPa エクセル相談所にあった質問で、とりあえずVBAなしじゃ出来ないって言っといったんだけど、VBAでリストの絞り込みって一度で出来る? 多分第1候補のリストを出したままその右には第2のリスト候補が表示されそれを第3候補までマウスの操作だけで選択させようって事だと思うんですけど。 インターネットの選択方式でそんなの見た事あるけど一から開発するの面倒くさそう。 ユーザーフォームと2次元配列でも使えばできるかな? ちなみにこの機能の名称あれば教えて欲しいです。 自分も配列すら参考書でかじったくらいでその必要性がわかってない初心者です : デフォルトの名無しさん (ワッチョイ 3d9f-JNzg) [sage] 2017/12/03(日) 08:42:40.14:U0ESQ6dD0 残念ながらVBAなしで実現可能 : デフォルトの名無しさん (アウアウウー Sa21-zPcF) [sage] 2017/12/03(日) 09:19:50.58:lwbJHU3ya お力添えをお願いします チェックボックスでチェック入れたら行の高さを0にし、チェック入れなかったら13.5にしたいのですがうまく動作してくれません Sub チェック8_Click() Dim A As Boolean Dim B As Boolean If A = True Then A = Rows(43).RowHeight = 13.5 B = Rows(44).RowHeight = 13.5 Else A = Rows(43).RowHeight = 0 B = Rows(44).RowHeight = 0 End If End Sub どこが間違っているのかご教示お願いします。 : デフォルトの名無しさん (ワッチョイ 1111-JjO2) [] 2017/12/03(日) 09:52:22.12:ObUuqjZI0 行は適当に変えてくれ Private Sub CheckBox1_Click() If CheckBox1.Value Then Rows(3).RowHeight = 13.5 Rows(4).RowHeight = 13.5 Else Rows(3).RowHeight = 0 Rows(4).RowHeight = 0 End If End Sub : デフォルトの名無しさん (ワッチョイ 1111-JjO2) [] 2017/12/03(日) 10:04:41.09:ObUuqjZI0 フォームコントロールならこっちだわ コントロール名は適当に変えてくれ Sub チェック2_Click() If Sheet1.CheckBoxes("チェック 2").Value = 1 Then 'これでダメなら下を試そう 'If "Sheet1".Shapes("チェック 2").ControlFormat.Value = 1 Then Rows(3).RowHeight = 13.5 Rows(4).RowHeight = 13.5 Else Rows(3).RowHeight = 0 Rows(4).RowHeight = 0 End If End Sub : デフォルトの名無しさん (アウアウウー Sa21-zPcF) [] 2017/12/03(日) 10:11:57.07:lwbJHU3ya ありがとうございます!!!こちらで動作しました!!本当に有難うございます!!! : デフォルトの名無しさん (ワッチョイ 6681-9GJZ) [] 2017/12/03(日) 10:42:36.13:HLUSF6su0 〉〉314 できるの? 入力規則の絞り込みじゃないよ? 階層化してリストから直接下層に移動(3段階くらい)して選択する方法だよ? : デフォルトの名無しさん (ワッチョイ 3d9f-JNzg) [sage] 2017/12/03(日) 11:18:12.75:U0ESQ6dD0 おいおい急に条件増やすなよw ttp://www.tschoolbank.com/excel/validation-list-linkage/ こういうことじゃないのかよ : デフォルトの名無しさん (ワッチョイ eab3-YtI1) [sage] 2017/12/03(日) 11:24:14.71:pXIsIngK0 これの話だから知らないなら絡んでくるなよ ttp://mevius.2ch.net/test/read.cgi/bsoft/1506938295/713 : デフォルトの名無しさん (ワッチョイ 9e9f-FJWj) [sage] 2017/12/03(日) 11:39:56.54:JkBkmVnb0 違う。 そのコード書いた奴に向かって言ってるのと、躓いてる奴にはそのコードはよろしくないと言ってる。 何の例かは分からんが、もっと現実的なコードにすべきなんだぜ。 : デフォルトの名無しさん (ワッチョイ 6681-9GJZ) [] 2017/12/03(日) 12:12:17.46:HLUSF6su0 しかも、わかりにくいかもしれないけど条件ちゃんと書いてあるんだけどね 入力規則の絞り込み検索じゃない。 階層ごとにクリック選択する事すらめんどくさいと言ってるんだよ。 一度の選択でリストの階層移動ができるかどうかを質問主は相談所で聞いていて 自分はVBAないとだめだよと回答したけどVBAだとどうなんだろうとこっち で聞きなおしてみたんだけど、 : デフォルトの名無しさん (ドコグロ MMb1-YtI1) [sage] 2017/12/03(日) 12:58:31.51:A600L+iiM さすがにそれは読み取れん : デフォルトの名無しさん (オイコラミネオ MM2e-JNzg) [sage] 2017/12/03(日) 13:12:35.66:bN8T4SKTM こういう糞レスがつくからスレが過疎るんだぞ : デフォルトの名無しさん (ワッチョイ 6681-9GJZ) [] 2017/12/03(日) 13:54:27.80:HLUSF6su0 ちゃんと、VBAでリストの絞り込みって一度で出来る? こう書いて その下に 多分第1候補のリストを出したままその右には第2のリスト候補が表示されそれを第3候補までマウスの操作だけで選択させようって こう書いてあるんだけど読み取れない? しかも、前文にエクセル相談所にあった質問こうも書いてあるし。 で、わざわざVBAで聞いてるのにわからないかー : デフォルトの名無しさん (ワッチョイ 66b9-MbHU) [sage] 2017/12/03(日) 15:23:42.34:icSWQcwl0 具体的なコードが伴わない場合は外野がなんかゴチャゴチャ言っている程度に聞き流すべき。 の質問はウィンドウズ標準のメニューバーみたいな形を想定しているみたいなので、 外部参照にMicrosoft Toolbarとかあれば、それを追加して解決するんじゃないかな。 : デフォルトの名無しさん (ワッチョイ eab3-YtI1) [sage] 2017/12/03(日) 15:57:02.43:pXIsIngK0 > 多分第1候補のリストを出したままその右には第2のリスト候補が表示されそれを第3候補までマウスの操作だけで選択させようって マウス操作にはクリックも含むのが普通だと思うぞ 無駄なレスしてなにか楽しいのか? あっちのスレ読めばわかるけどそもそも VBA 使わずにできるかどうかの問題になってるから Toolbar 云々の話ですらない お前さんこそ聞き流すべき : デフォルトの名無しさん (ワッチョイ 66b9-MbHU) [sage] 2017/12/03(日) 16:12:49.11:icSWQcwl0 どちらかというとの質問に答えた形だけど。 向こうの質問にこっちで答える義理もないし。 : デフォルトの名無しさん (ワッチョイ 9e9f-FJWj) [sage] 2017/12/03(日) 17:11:02.86:JkBkmVnb0 それは、VBAでも出来ないと思う。 というかWindowsの標準動作と違う。 似たようなのは出来るかもしれないけど。 コンボボックスじゃなくメニューなら出来るかな。 見ためが違うけど。 見ためをコンボボックスにしたいならコンボボックス使わずにフォ−ムに描画した方が楽じゃね? コンボボックスだと選択しないとイベント発生させるのが難しいし、イベント発生時にブルダウンが閉じるのが通常動作だから。 サブクラスでHITTEST検出で出来るかどうか。 VBAではウルトラC級に難しい。 : デフォルトの名無しさん (ワッチョイ 9e9f-FJWj) [sage] 2017/12/03(日) 17:13:47.51:JkBkmVnb0 メニューバーの見ためは駄目なんじゃないの? 俺もメニューバーが現実的だとは思うけど。 : デフォルトの名無しさん (ワッチョイ 6693-bpph) [sage] 2017/12/03(日) 18:36:56.64:RpLqv7Ag0 階層付きMenuで3項同時に入力するってこと? 自分だったらContextMenuの改造またはPopupでやるかな。 見た目悪いけど、最下層をデリミタ区切りのフルセットにすれば Splitして投げ込むだけでいいでしょ? CellのContextMenuだとあとで標準に戻すこと考えないと いけないので最近はもっぱらPopupばかり使ってる。 Cellのプルダウンだと表示数に限りがあるけど、Popupだと 画面サイズいっぱいまでいけるし、、 あ、もちろんCommandBarsのアレのことです。 : デフォルトの名無しさん (アウアウオー Sa12-9GJZ) [] 2017/12/03(日) 22:48:18.35:DUCKYmEka いえ、1つ目のリストを表示して、マウスの位置をその位置まで持ってきて 2つ目のリストを表示してって3つ目のリストを最終的に表示するみたいな。 エクセルの旧表示みたいな感じで、ファイル→検索みたいな感じです。 多分 : デフォルトの名無しさん (ワッチョイ 6693-bpph) [sage] 2017/12/04(月) 00:43:15.26:oPXdl+lm0 いやだからそれって、階層メニューのことでしょ? 手近なところでいうと、、、たとえばFireFoxだと、 表示 > テキストエンコーディング > 自動判別 > 日本語 みたいな。この手のMenuって、onMouseOverイベントで 下層が勝手に開いていきますよね。 それで各階層の選択肢を全部入力値として使うことじゃないの? : デフォルトの名無しさん (ワッチョイ 9e9f-w/Tc) [sage] 2017/12/04(月) 02:58:02.92:Fxj9yJGL0 そう、これはメニューの動作なんだ。 コンボボックスで実現するのはとても難しい。 ほとんどの奴は上級者でも不可能と言うだろう。 それとも俺の知らない何かがあるかもしれないけど。 : デフォルトの名無しさん (ワッチョイ 6693-bpph) [sage] 2017/12/04(月) 03:21:07.64:oPXdl+lm0 コンボの配下にメニュー作ろうとすると怒られた。 階層メニューによる一括入力、自分でも使うかもと思い作ってみたよ。 1) 前提:質問者のリンク先キャプチャを参考 A2:C2が回答入力欄 キャプチャにある凡例を登録するための矩形範囲を"R_Master"とする。 2)呼出部:キャプチャのA1セルにある "商品"の文字列を右クリックで発動。 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Target.Resize(1, 1).Value = "商品" Then Cancel = True Call Popup_FullPut(Range("R_Master"), " 個") End If End Sub : デフォルトの名無しさん (ワッチョイ 6693-bpph) [sage] 2017/12/04(月) 03:23:18.02:oPXdl+lm0 3)Menu生成部 Sub Popup_FullPut(rngMst As Range, Optional strUnit As String) Dim r As Range Dim i As Long, j As Long, k As Long With CommandBars.Add(Position:=msoBarPopup) For i = 0 To rngMst.Rows.Count - 1 Set r = rngMst.Offset(0, 0).Resize(1, 1).Offset(i, 0) If r.Value = "" Then Exit For With .Controls.Add(msoControlPopup) .Caption = r.Value For j = 0 To rngMst.Rows.Count - 1 Set r = rngMst.Offset(0, 1).Resize(1, 1).Offset(j, 0) If r.Value = "" Then Exit For With .Controls.Add(msoControlPopup) .Caption = r.Value For k = 0 To rngMst.Rows.Count - 1 Set r = rngMst.Offset(0, 2).Resize(1, 1).Offset(k, 0) If r.Value = "" Then Exit For With .Controls.Add(msoControlButton) .Caption = r.Value & strUnit .OnAction = MkAction( "Popup_Input", rngMst.Address(external:=True),i & "|" & j & "|" & k ) End With Next End With Next End With Next .ShowPopup .Delete End With End Sub : デフォルトの名無しさん (ワッチョイ 6693-bpph) [sage] 2017/12/04(月) 03:24:02.05:oPXdl+lm0 4)入力実行部 Sub Popup_Input(strMst As String, strAns As String) Dim rngR1 As Range: Set rngR1 = Range("A2") Dim rngR2 As Range: Set rngR2 = Range("B2") Dim rngR3 As Range: Set rngR3 = Range("C2") Dim rngMst As Range: Set rngMst = Range(strMst) Dim i As Long, j As Long, k As Long i = Split(strAns, "|")(0) j = Split(strAns, "|")(1) k = Split(strAns, "|")(2) rngR1.Value = rngMst(i + 1, 1).Value rngR2.Value = rngMst(j + 1, 2).Value rngR3.Value = rngMst(k + 1, 3).Value End Sub : デフォルトの名無しさん (ワッチョイ 6693-bpph) [sage] 2017/12/04(月) 03:28:37.65:oPXdl+lm0 5)引数付きのOnActionコマンドの生成に普段使っている関数 ん?書き込めない、、なんで? 要は文字列生成がメンドーだから関数使ってるだけなんだけど、、 : デフォルトの名無しさん (ワッチョイ 6693-bpph) [sage] 2017/12/04(月) 03:36:14.51:oPXdl+lm0 刻んでみる。 5)引数付きのOnActionコマンドの生成に普段使っている関数 Function MkAction( strCMD As String, Optional arg1 As String, Optional arg2 As String ) : デフォルトの名無しさん (ワッチョイ 6693-bpph) [sage] 2017/12/04(月) 03:41:24.99:oPXdl+lm0 Dim文のところではじかれるみたい、、 5)引数付きのOnActionコマンドの生成に普段使っている関数 Function MkAction( strCMD As String, Optional arg1 As String, Optional arg2 As String ) Dim DQ As String: DQ = Chr(34) Dim SQ As String: SQ = Chr(39) Dim buf As String buf = strCMD & " " If arg1 <> "" Then buf = buf & DQ & arg1 & DQ If arg2 <> "" Then buf = buf & "," & DQ & arg2 & DQ MkAction = SQ & buf & SQ End Function 書き込めたかな? Chr関数は禁則? : デフォルトの名無しさん (ワッチョイ 6693-bpph) [sage] 2017/12/04(月) 03:44:57.18:oPXdl+lm0 書き込めた。 Chr関数で引っかかっていたみたい。実際は半角です。 インデントは全角スペースになっているので変換が必要です。 : デフォルトの名無しさん (ワッチョイ f1f7-681q) [sage] 2017/12/04(月) 07:27:39.63:65GoxPZl0 VBEにコピペすると、全角スペースは自動的に半角スペースに変換されるから意識する必要ない : デフォルトの名無しさん (ワッチョイ 6693-bpph) [sage] 2017/12/04(月) 07:55:50.52:oPXdl+lm0 本当ですね。 tnx! : デフォルトの名無しさん (ワッチョイ a57b-JjO2) [sage] 2017/12/05(火) 20:57:29.50:dwGLun0F0 エクセルのVBAで、サーバー上にディレクトリを作成して、そこにファイルを移動させたいのですが、 MkDIRで作成できませんでした。どうすればよいでしょうか? : デフォルトの名無しさん (ワッチョイ b5b3-85w6) [sage] 2017/12/05(火) 21:25:35.80:JPkeWfWn0 FileSystemObject使えばできますよ。 サーバー側の権限は大丈夫ですか? : デフォルトの名無しさん (ワッチョイ a57b-JjO2) [sage] 2017/12/05(火) 21:34:50.27:dwGLun0F0 ありがとうございます! dim myFSO as new filesystemobject myFSO.CreateFolder (サーバー上のつくるディレクトリ名)でいけますか? それともカレントドライブをサーバー上に移動すべきでしょうか? : デフォルトの名無しさん (ワッチョイ 1111-JjO2) [sage] 2017/12/06(水) 00:43:40.01:D6s1mPo40 試してみたら? : デフォルトの名無しさん (ワッチョイ 6693-bpph) [sage] 2017/12/06(水) 11:15:00.00:8dpxpCOD0 質問です。 プロシージャの処理の途中でイミディエイトウィンドウをうまくクリアする方法はありますか? : デフォルトの名無しさん (アウアウカー Sa55-YkX8) [sage] 2017/12/06(水) 11:39:53.74:MQk7+ulPa あるかないかでいえば、 ないこともないアル 地道にセンドキーでキー送って 全選択してデリートしてって方法がな : デフォルトの名無しさん (スプッッ Sdea-gD61) [] 2017/12/06(水) 11:46:45.28:vAzWmOhld 関係ないけどブックを開くとイミディエイトウィンドウ上の変数が消滅するの困る : デフォルトの名無しさん (ワッチョイ 6693-qSQT) [sage] 2017/12/06(水) 13:39:40.38:yYTt94fN0 その際はFocusをVBEに移してイミディエイトPaneをアクティブにする操作を挟むのでしょうか? : デフォルトの名無しさん (ワッチョイ 5d8a-MbHU) [sage] 2017/12/06(水) 16:07:50.81:ykbUk5IV0 エクセルのVBAで競馬予想ソフト作っている人っていますか? : デフォルトの名無しさん (アウアウカー Sa55-YkX8) [sage] 2017/12/06(水) 19:37:25.77:sdGXOm2ja デバッグ クリア VBAで検索したら 幸せになれるかもよ : デフォルトの名無しさん (ワッチョイ 6a9b-vhf4) [sage] 2017/12/06(水) 21:02:08.65:H8Zs2M1B0 VBAでコンボボックスのリストのみクリアってどうやってやるんですか? : デフォルトの名無しさん (アウアウカー Sa55-FJWj) [sage] 2017/12/06(水) 23:12:55.48:ClwZMpdPa 正式にやるのは多分すごく難しい。 Win32APIでコンボボックス内のリストボックスに対してどうにかするということになると思う。 しかし、単純に strCombo=ComboBox1.Text ComboBox1.Clear ComboBox1.Text=strCombo でテキストが一瞬クリアされたのは見えないから現実的な案だと思う。 : デフォルトの名無しさん (ワッチョイ ff81-iX7J) [] 2017/12/07(木) 10:43:49.53:cGZzJnMw0 シートの非表示設定について Sheets(”sheet1").Visible = False でシート非表示設定をしたのですが元々非表示だとバグになってしまいます。 釦を押せば特定のシートのみを表示できるようにしたいんですけど表示時非表示時がランダムで 非表示時でもそのコード無視するかと思ったら非表示なのに非表示にするんじゃねぇと怒られた。 : デフォルトの名無しさん (ワッチョイ bf9f-F7Qh) [sage] 2017/12/07(木) 10:55:46.75:SgQPpSGG0 VisibleプロパティがBooleanで状態を返すのでIfで分岐させる If Sheets("sheet1").Visible Then Sheets("sheet1").Visible = False Else Sheets("sheet1").Visible = True End If こうすると実行するたびに表示/非表示が切り替えられる : デフォルトの名無しさん (ワッチョイ ff81-iX7J) [] 2017/12/07(木) 11:24:06.29:cGZzJnMw0 8 ありがとうございます。できました。 なんとなく、if文使うのかなと思ったのですがif文が思いつかなかった。 Elseの下を消すことで、非表示時は非表示のままのする思い通りの事が出来ました。 : デフォルトの名無しさん (アウアウカー Saeb-ipAI) [sage] 2017/12/07(木) 11:50:17.69:/U/N3RBoa それだと非表示の時は表示されるからElseはいらねえだろ。 俺も Sheets("sheet1").Visible=(Not Sheets("sheet1").Visible) と最初考えたけどやっぱIf文にしないと駄目かと考えた。 : デフォルトの名無しさん (ワッチョイ bf9f-F7Qh) [sage] 2017/12/07(木) 12:06:28.65:SgQPpSGG0 たぶん他人にも使わせるのだと思いますが シートをシート名じゃなくオブジェクト名で指定すると 誰かが勝手にシート名を変えても関係ないのでオススメ。 さらにわかりやすいオブジェクト名に書き換えると、尚良し。 オブジェクト名はVBEのプロパティウィンドウの(オブジェクト名)を見てね。 初期値はSheet1なので Sheets("sheet1")をSheet1に置き換えてもうごくはず。 あとから余計なこと書いたかなーと思ったけど、本人が気づいてくれてよかった。 : デフォルトの名無しさん (ワッチョイ ff81-iX7J) [] 2017/12/07(木) 13:06:30.92:cGZzJnMw0 〉〉361 ど素人で何もわからないままマクロの記述させながら必要なところ コピペしてとネットコピペでほとんどコード打ち込まず作ってるので まだ、オブジェクトまで触ってません。 今度触ってみたいと思います。 標準モジュールは逆になんのモジュールかわからなくなるの必要なモジュールと区別するために名前つけてるけど sheet名はそのままです。 : デフォルトの名無しさん (バットンキン MM7f-jLfE) [sage] 2017/12/07(木) 21:42:15.17:F/BnOZfeM ワシはティンコを2本もっている 2本目はとっておきだ(´・ω・`)b : デフォルトの名無しさん (スフッ Sdbf-JIMd) [] 2017/12/07(木) 22:24:29.94:QxT2u2P9d マジ気になるわー V字になってるのか、真ん中で2段になってんのか、前後に生えてんのか? 1本は普通だが、もう1本はデコに生えてんのか? : デフォルトの名無しさん (アウアウオー Sadf-QeeD) [] 2017/12/08(金) 00:07:26.11:8mEkhztWa コードのコメントについて どこまで記入してますか? 素人なもんで変数の内容から 変更前のコードまでコメント化してるからコード自体が長くなる。 社内のVBAコード見るとコメントほとんど書いてなくてf8で追っても、よくわからないからなにがいいか分からない : デフォルトの名無しさん (ワッチョイ ffb9-LVSJ) [sage] 2017/12/08(金) 00:27:27.18:tPe4A27O0 設計さえキチンとしていれば大抵はコメント要らない。 Dim SLine As Long:SLine = 3 '読み込むファイルのヘッダーが二行ある為 みたいにプログラム依存でないパラメータを解説する時に使ったりはする。 ある程度の習熟が必要なので、ステップ実行でも何してるか分からない(正常に追えない原因が分からない)のであれば、 まだコメントの必要性について論ずる段階では無いので特に要らないんじゃないかな。 自分の昔書いたコードを改修しようとして訳分からないみたいなのを何度も経験して始めてコメントの要点が掴めると思う。 : デフォルトの名無しさん (JP 0Hbb-LgyW) [sage] 2017/12/08(金) 00:40:24.89:MH/bn/0fH 変数名からなるべく中身を類推できるようにつけてコメは最小限にしてる。 後で迷うくらいならつけたほうがいいと思う。コード記述して直後は完全にわかってるから迷うポイントに気づけない。一週間後とかに再レビューして、「コレなにやってんだろ?」と引っかかった所はポイントかな。 あとExcel本体の不具合、制限回避とかコメしてないと中々思い出せないことがある。 : デフォルトの名無しさん (ワッチョイ bf9f-MQ7n) [sage] 2017/12/08(金) 00:50:05.27:04xg1k3G0 コメントは書いた方が良いんだが、余計なのはいらない。 変数名で分かるものは必要ない。 むしろどういう処理かのコメントを書く場合が多い。 それもそこのメンバーのレベルによる。 書ける奴らが集まってるなら、こんなもん分かるだろと書かない場合も多い。 : デフォルトの名無しさん (アウアウイー Sa8b-W7LT) [sage] 2017/12/08(金) 08:12:21.44:WX0K1LcLa コメントは処理の内容についてはしない なぜその処理をするのかつかみにくいとリッキーだったり使用上やむを得ないときに理由を簡潔に書く 変更履歴をコード上に書くのは愚の骨頂だけどVBAだとほかに方法が少ないから自分かチームでルール決めるしかないな : デフォルトの名無しさん (アウアウイー Sa8b-W7LT) [sage] 2017/12/08(金) 08:13:11.00:WX0K1LcLa とリッキー→トリッキー 使用→仕様 : デフォルトの名無しさん (スプッッ Sd3f-sF5C) [sage] 2017/12/08(金) 18:16:29.95:3k7CQU1Hd 質問です。 シミュレータソフトをVBAを使って制御しています。順々にモデルを解析していき、逐次計算結果がエクセルに反映表示されるような動作をします。 ただそのとき、きちんと逐次結果が表示されていく場合と画面に全く結果が表示されずプログラムが終わった途端に一気に数値が表示される場合とがあります。 途中でも解析結果が分かるよう安定して逐次表示するようにしたいのですが解決策分かる方いたら教えてください。 なお画面更新はもちろんオンです。調べたところdo eventsというのでWindowsに制御を渡すやり方もあるようですが、途中の動作が割り込む可能性がありそれは避けたいです。 : デフォルトの名無しさん (アウーイモ MM1b-CLVY) [sage] 2017/12/08(金) 19:13:35.05:jJUgyerEM 自分も普段はほとんどコメント書かない。 適切な命名とコードの流れで処理は説明して、意図や補足説明にコメントを書くのが正しいと思ってる。 ただ、VBAではかなり細かく書いてる。理由は、VBAの時点でどうやっても読みづらいから。 勝手に行間調整するせいで int n WorkBook book みたいな整列ができないし、Dim n As Integerって構文自体が無駄な単語多くて、数並んでいると読む気がなくなる。 スコープの区切りにEndを使うのも()よりコードに埋もれて見づらいしVBEの色設定は貧弱だし。 VBAに限ってはコメントで処理追った方が楽だって最近は思ってる。 早くエクセル操作に向いたもっとまともな言語出ないかな。 : デフォルトの名無しさん (アウアウオー Sadf-CLVY) [sage] 2017/12/08(金) 19:16:35.83:wpv6YuQca そうか、ここもvba方式なんだった。 int__________a WorkBook___book みたいにタイプと変数名で表っぽく配置することね。 : デフォルトの名無しさん (ワッチョイ ffb9-LVSJ) [sage] 2017/12/08(金) 19:34:22.58:tPe4A27O0 VBAは宣言しないのがデフォなんだから、いちいちDimなんちゃらってやってたら、そりゃ不便だろ。 : デフォルトの名無しさん (ワッチョイ 37c3-gbWp) [] 2017/12/08(金) 20:15:19.13:F+K0Jtko0 そうではなくて、変数の宣言構文がシンプルではないところを言っていると思うよ。 : デフォルトの名無しさん (スップ Sd3f-6IXG) [] 2017/12/08(金) 20:45:47.90:kuqPkTCcd やれやれ、また長い関数を書いてしまった : デフォルトの名無しさん (アウアウカー Saeb-ipAI) [sage] 2017/12/09(土) 01:25:45.78:naguWC2La 宣言しない奴のコードは読みたくないな。 宣言全部入れてから持って来いと言うかも。 : デフォルトの名無しさん (アウアウカー Saeb-ipAI) [sage] 2017/12/09(土) 01:27:01.02:vu3Y0INla VBAに慣れてれば、そんなの違和感無いけどな。 : デフォルトの名無しさん (アウアウカー Saeb-ipAI) [sage] 2017/12/09(土) 01:39:08.64:vu3Y0INla それじゃコメントのしようがない。 どんな風に制御しているのかとか、結果はそのシュミレータソフトから取ってきてるんだろうけど、そこから逐次結果が得られてるのかとかの詳細が分からんと何とも言えない。 : デフォルトの名無しさん (スップ Sd3f-6IXG) [] 2017/12/09(土) 11:52:36.39:oQ1pndO0d Debug.Print もApplication.Statusbar もちょっと処理が重くなってくると表示が止まって役に立たない : デフォルトの名無しさん (ワッチョイ 77f7-CoKo) [sage] 2017/12/09(土) 13:26:29.70:Px3+LsGd0 Debug.Printの次にDoEventsを書けばすぐに出力される : デフォルトの名無しさん (アウアウオー Sadf-QeeD) [] 2017/12/09(土) 20:32:20.11:uW7BpcjHa コメント関連ありがとう。 もう、人には見せない用だけどくどいくらいコメント書きまくってるw : デフォルトの名無しさん (アウアウオー Sadf-QeeD) [] 2017/12/10(日) 08:18:11.50:PzHPENwqa VBAの開発環境について デバッグ作業してると2画面欲しくなるんだけど皆さんどうしてる? vBEの画面と通常の画面をフルスクリーンで見たいし、VBEもコード書き込む画面のほかに現在の変数が分かる画面と実行結果が分かる画面が欲しいからノート1台でやってると画面グチャグチャ : デフォルトの名無しさん (ワッチョイ b7e3-mHr+) [sage] 2017/12/10(日) 08:41:31.53:2VZ9i3vi0 ノートはUPS付きのデスクトップとして使ってる 24インチのモニタに繋いで 無線キーボードとマウスで操作 : デフォルトの名無しさん (ワッチョイ bf9f-F7Qh) [sage] 2017/12/10(日) 09:29:22.82:s+zBVK9X0 モニタ2枚でやってるけど ツールボックスのウィンドウとかフォームが画面の境界に表示されたりして 地味に対応していない感を醸し出してる。 フルHD以上なら1枚でもVBEを端っこによけておけば窮屈じゃないと思う。 それよりエディタの貧弱ぶりをどうにかしてほしい。 今時のIDEを触ると、VBEはふた昔前のオマケ機能なんだなと思い知る。 : デフォルトの名無しさん (オッペケ Sr8b-GErp) [sage] 2017/12/10(日) 12:22:00.56:w7IPLNC5r まあデバッグが必要になる様なマクロなんかこさえんなっで事だ : デフォルトの名無しさん (ワッチョイ ffb9-LVSJ) [sage] 2017/12/10(日) 13:02:23.44:rJurKCVR0 デバグが不要なマクロって相当短くないと無理だろ : デフォルトの名無しさん (ワッチョイ 3703-ZqID) [] 2017/12/10(日) 19:23:33.18:RKQe6ZfS0 バグ発生に関与する要因としてコードの量のみを気にかけている → 初心者またはそれに準ずる低スキルのもち主 を受けてバグが一切発生しない事を想定している → 0か100でしか物事を考えられないアスペ デバッグをデバグと言っている → ガチのジジイか極端にセンスの悪い意識高い系 たった一言でここまでプロファイリング出来ました : デフォルトの名無しさん (アウアウオー Sadf-QeeD) [] 2017/12/10(日) 20:54:53.56:DUp9AezHa え??コード書き書きしたら一度も動作チェックしないで実装するの? すげー! ほぼ途中で止まって黄色くなる身としては信じられない. 全ての動作の確認と変数の動作に変な所がないか見るの楽しい. それに人が書いたコードで動作チェックするにもf8必要だし ただ、F8連打も大変だから超ゆっくり動作する機能でもあればいいのに : デフォルトの名無しさん (ワッチョイ bf8a-StTJ) [sage] 2017/12/10(日) 21:56:00.33:tyDER63C0 虫見付けるたんびに「バッグだ!バッグだ!」言うんか 自分の発言に違和感無いんか : デフォルトの名無しさん (ワッチョイ ff81-F7Qh) [sage] 2017/12/10(日) 22:02:23.86:UfhTQ4hV0 プログラムがおかしい以上バグはバグだ 開発中に個人で見つけてるから影響が小さいというに過ぎないが べつにいいじゃんバグでも : デフォルトの名無しさん (ワッチョイ ffb9-LVSJ) [sage] 2017/12/10(日) 22:28:29.51:rJurKCVR0 リリース版を出すかどうかをデバグ作業と呼ぶかどうかの境界線にしてるって事なのかな? バグまみれでリリースして、ネット経由でパッチを当てるのが当たり前になった事が原因で、 そういう感覚が生まれたって考えるとなかなか興味深い現象だな。 : デフォルトの名無しさん (ワッチョイ bfc5-qmOZ) [sage] 2017/12/10(日) 22:54:03.35:5raOMeRU0 お前、リアルで嫌われ者だろ たった一文でここまでプロファイリング出来ました : デフォルトの名無しさん (ワッチョイ ff93-StTJ) [sage] 2017/12/10(日) 23:42:33.59:05lOR9eq0 質問です。(スレチかもだけど、他よりここの人たちのほうがLevel高そうなので) Excel2013 @Win10 64bit Core i7 Mem8GB ここ数日でAutoFilterのパフォーマンスが急に悪くなったと感じています。 テーブルは2000行*50列程度。 症状としてはフィルタリング済みのシートをSelectする際にタイムラグが発生します。 最初原因が分からなかったのですが、設計を少しずつ切り落としていった結果、 フィルタ範囲に入力規則が設定されていたのが原因でした。 その内容はIMEOffのみ。 フィルタがかかってない場合は瞬時にシート切替できるのに、フィルタリングされていると 切替に数秒待たされます。 フィルタ列が増えるとラグが倍増します。 また、列要素の先頭行付近の要素でフィルタされている場合の方が影響が大きいです。 2〜3日前までこのようなことはなかったのに、、何かExcel環境自体がかわったのかと 思いくまなく調べるのですが、原因が掴めません。 (つづく) : デフォルトの名無しさん (ワッチョイ ff93-StTJ) [sage] 2017/12/10(日) 23:43:42.33:05lOR9eq0 (つづき) マクロやシート上の把握できていない設計要素の影響を除外するために新規xlsxファイル で試しました。 前提:評価ブック以外のブックは開かない。 シート1:2000行*50列の表を作成、A-Zの1文字をランダムに埋め、AutoFilter設置。 書式設定、条件付き書式等は一切行わない。 入力規則は評価条件とする。(IME制御なしの場合とIME-Offの場合) フィルタ実施時は、2列絞り込む。 シート2:空シート 評価用Macro(シート1) Option Explicit Dim st As Single, ed As Single Private Sub Worksheet_Deactivate() st = Timer End Sub Private Sub Worksheet_Activate() ed = Timer: Debug.Print ed - st End Sub (つづく) : デフォルトの名無しさん (ワッチョイ ff93-StTJ) [sage] 2017/12/10(日) 23:44:00.59:05lOR9eq0 (つづき) 評価方法: 1)フィルタ設置のシート1を表示 2)Ctrlキーを押しながら、PgDn→PgUpを連続して押下。 3)Immediateウィンドウで計測時間を確認。 上記を5回程度実施 条件と結果: Case IME制御なし+フィルタなし ▼平均時間:約70msec Case IME制御なし+フィルタ-On ▼平均時間:約70msec Case IME-Off+フィルタなし ▼平均時間:約70msec Case IME-Off+フィルタ-On ▼平均時間:約7000msec ちなみに1列フィルタリングした場合は、約1400msec程度でした。 対症療法としては「入力規則使うな」となりそうですが、2〜3日前までは上記 現象は発生していなかったので、、原因療法が知りたいです。 どなたか上記現象分かるかたいらっしゃいませんか? : デフォルトの名無しさん (ワッチョイ 77f7-CoKo) [sage] 2017/12/10(日) 23:47:36.15:VPQqZskd0 思い当たるのは、FCUでIMEの挙動がおかしくなったという報告多数な件 : デフォルトの名無しさん (ワッチョイ ff93-StTJ) [sage] 2017/12/11(月) 03:47:36.99:/hRyHJmR0 Version1703なのでまだFallは当たってないようです。 : デフォルトの名無しさん (ワッチョイ 578a-LVSJ) [sage] 2017/12/11(月) 11:20:26.75:TIu41blJ0 ホントMSはアップデートなのかウイルスなのか分からんことするよな・・・ : デフォルトの名無しさん (JP 0Hbb-LVSJ) [sage] 2017/12/11(月) 13:06:28.39:NoGJiqM0H ちなみに職場の環境 Excel2010 @Win7 Excel2013 @Win8 では再現しませんでした。 やっぱりなんらかのUpdateが当たったのか、それとも自分でなんかやらかしてるのか、、、 : デフォルトの名無しさん (ワッチョイ bf8a-StTJ) [sage] 2017/12/11(月) 13:32:28.01:pEROMoD00 午前中にメッセージが出てアプデするか? とか聞きゃあがったから「あいよ」ってんで気軽に再起動した 90%ぐらい完了した後で Cannot だってやんの しょーもないから電源落として午後再起動したら また「アプデするか?」 って もうね、アホかと : デフォルトの名無しさん (ワッチョイ 7781-F7Qh) [sage] 2017/12/12(火) 01:03:48.16:vtwEo9S/0 Windows 押しつけがましいアップデートメッセージが出て いいえしまくってたんだけど ちょっと目を離して風呂入ってたら勝手に合意したことにしてOSインストールされてた そんな俺が客先で作らされてるのは顧客が一日黙ってたら契約に合意したことになるシステム : デフォルトの名無しさん (ワッチョイ ff93-StTJ) [sage] 2017/12/12(火) 04:17:56.67:VGkGFTOK0 質問です。 LastCellって簡単に取得できるのにHomePositionってこれといった決定打がないんですかね? SendKeys以外で簡単に安定して取得する方法ってありますか? できればSelectしなくてよい方法で。 : デフォルトの名無しさん (スッップ Sdbf-6IXG) [] 2017/12/12(火) 11:56:45.28:R9+tEHmjd ADODB.Streamで大きめのテキストファイルを読むときLoadFromFileが重いので、Openの引数でファイル指定してから ReadTextするようにしたいんですがうまくいきません。 パスをそのまま書いても、"file://C:temp/data.txt"のような書き方をしてもことごとくOpenのところで落ちてしまいます。 どう書けばいいんでしょうか? ちなみに先頭100行を試し読みするときとかに使いたいです。 : 名無し (ワンミングク MM7f-ToMk) [sage] 2017/12/12(火) 12:18:28.61:KlMiw57eM それならコード貼ったほうが早い 使い方云々が知りたいだけならググればいいし : デフォルトの名無しさん (スッップ Sdbf-6IXG) [] 2017/12/12(火) 12:50:26.86:R9+tEHmjd スマホなのでちょっと待ってて : デフォルトの名無しさん (ワッチョイ ffb8-+aO5) [sage] 2017/12/13(水) 11:40:21.94:5F7kXiJk0 名前を付けて保存する際 最近使った“アイテム”が 今週〜,先週〜,しばらく前,という順番で使用履歴の各ファイル名が表示されます。 これを表示させない設定を教えてください。 よろしくお願いいたします。 スペック ↓ OS=Win10 Excel2016 Officeバージョン=1710 : デフォルトの名無しさん (ワッチョイ ffb8-+aO5) [407] 2017/12/13(水) 14:40:49.78:5F7kXiJk0 ↑すいません、質問するべき板を間違えました。ここはVBAでしたね。 他で聞いてみます。 : デフォルトの名無しさん (ワッチョイ 9f23-HquM) [sage] 2017/12/13(水) 22:03:05.49:lbNGI0B20 チョイ前に変数の宣言が話題になってたから俺も一ネタ言いたい 「redim で変数の宣言が出来る仕様はやめて欲しい」 変数名を間違えた時にエラーで気付けるように普段から変数の宣言を強制してるんだけど、 redim で配列を変更する時に変数名を間違えても 新たな別の変数扱いされてエラーにならないから気付かないことがある 配列変数でも宣言は dim 、要素変更は redim っていう風にしといてくれたらと願ってやまない : デフォルトの名無しさん (ワッチョイ 9faf-F7Qh) [] 2017/12/13(水) 23:22:51.89:b+I23nON0 Application.GetOpenFilename でファイルのパスを求められることが分かった Application.GetOpenFilename Workbooks.Open.Filename:=Application.GetOpenFilename ってできないことが意味がわらない あと Workbooks(Application.GetOpenFilename)ってやるとパス付のでエラーになってしまうこともわかった Workbookオブジェクトに適当な変数を宣言して iとする i = Application.GetOpenFilename i.worksheet()ってできない意味がわからない i = Workbooks.Open(filename:= ApplicationGetOpenFilename) i.worksheets() これならできる意味がわからない ()で戻り値をくくるのはわかる でもこの場合の戻り値はパス付戻り値であるから Applcation.GetOpen.... はいらないのでは?パス付戻り値ならば i = Application.GetOpenFilename でもできるのでは?WorkBookオブジェクト変数だから 誰か答えられる? : デフォルトの名無しさん (ワッチョイ ffa5-HVUt) [sage] 2017/12/13(水) 23:34:03.63:fRI8/I3E0 そういう言語仕様なので : デフォルトの名無しさん (ワッチョイ 9faf-F7Qh) [] 2017/12/13(水) 23:49:56.82:b+I23nON0 わりと真面目に答えてくれ オブジェクト変数に直接パス付のファイル名をぶち込んでエラーになるのが意味わからない なんのためのオブジェクト変数なんだ Workbooks.Open(filename:= ApplicationGetOpenFilename) これもパス付のファイル名なのになんで格納できるんだ? : デフォルトの名無しさん (ワッチョイ de9d-RjCm) [sage] 2017/12/14(木) 00:01:33.96:iqnmwrCv0 まず型というものを理解してください つぎに、プロパティというものを理解してください つぎに、オブジェクトにはデフォルトプロパティというものがあるのを理解してください あと名前付き引数に対する理解も必要ですね VBAではSetでの代入とLet(を省略した)代入では意味が違うので、それもちゃんと区別してください いちいち全部ここで解説はせんが このぐらい理解すればたぶん答えはわかるだろ : デフォルトの名無しさん (ワッチョイ de9d-RjCm) [sage] 2017/12/14(木) 00:13:48.84:iqnmwrCv0 まじめに答えといてやるけど >オブジェクト変数に直接パス付のファイル名をぶち込んでエラーになるのが意味わからない たぶんお前がやってるのは、そのオブジェクト変数のデフォルトプロパティに代入しようとした で、そのオブジェクトがそれを受け入れないからエラーがでたんだろうな >Workbooks.Open(filename:= ApplicationGetOpenFilename) >これもパス付のファイル名なのになんで格納できるんだ? 格納の意味が分からん ApplicationGetOpenFilename(の結果)をたんにOpenの(filename)引数として渡してるだけ ApplicationGetOpenFilenameの結果がOpenのfilename引数として適当だからエラーが出なかっただけ : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/14(木) 00:14:33.99:FrwGQASIx パス付戻り値っていう表現が凄い Application.GetOpenFilenameの戻り値は、パス文字列か、パス文字列の配列か、ダイアログがキャンセルされたときに返されるFalseかのいずれかしかない パス付って、何にパスがくっついてると理解してるんだろう パスが戻り値そのものだろう : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/14(木) 00:18:35.88:oVDd8Fug0 意味がわからん 初心者相手に専門用語で勝った気になるなよ : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/14(木) 00:21:23.88:oVDd8Fug0 パスってのは ¥C:のことだろ? openメゾットの戻り値も¥C:ついてるのに WBオブジェクト変数に格納できる意味がわからない 専門用語でこたえるな わかりやすく答えろ 外人相手に口喧嘩して勝ち誇ってるやつと同じだわ : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/14(木) 00:23:38.19:oVDd8Fug0 workbookのオブジェクト変数のデフォルトプロパティってなんだよ そこを答えろ 答えろって言わないと答え出て来ねえのかよ : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/14(木) 00:24:22.55:oVDd8Fug0 ちなみにおれはVBA初めて3時間 ここまでの疑問が出るだけすごいと思うけど : デフォルトの名無しさん (ワッチョイ d223-AMYv) [sage] 2017/12/14(木) 00:24:26.11:0XKK4N9O0 >Workbooks.Open.Filename:=Application.GetOpenFilename >ってできないことが意味がわ「か」らない Workbooks.Open Filename:=Application.GetOpenFilename なら動くんだが、それではダメ?(open と filename の間は半角スペース) 何故かと言えば言語の仕様として 引数はピリオドで繋ぐものではないからとしか言いようがない (workbooks はオブジェクト、open はメソッド、filename:=~ はその引数) >i = Application.GetOpenFilename >i.worksheet「s」()ってできない意味がわからない 変数i が workbook型だとして、Application.GetOpenFilename の戻り値はworkbook型ではない。 戻り値はvariant型なんだけど、キャンセル時に false になるだけで、ファイルが選択されていれば文字列が返される 複数ファイルが選択されてても文字列が配列で帰るだけ それに、i がworkbook型変数なので set を付けないとダメ i が variant型変数 なら文字列か false が帰るだけでヤッパリ workbook としての挙動はしない i.worksheet「s」() っていうのも、worksheetオブジェクトは 既に開いているブックのシートしか指定出来ないから、i がブックとしてオープンしてなきゃ当然ダメ >i = Workbooks.Open(filename:= ApplicationGetOpenFilename) >i.worksheets() >これならできる意味がわからない set i = Workbooks.Open(filename:= ApplicationGetOpenFilename) じゃないと動かないよ 理由は前述のとおり : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/14(木) 00:32:01.43:FrwGQASIx Openメソッドの戻り値はパスではなく、Workbookオブジェクトそのものだ 開いているブックの集まりであるWorkbooksコレクションオブジェクトに、引数Filenameで指定したブックを追加して、戻り値としてそのブックそのものを返す処理だ 何か根本的に勘違いしてるだろ君 : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/14(木) 00:33:36.37:oVDd8Fug0 お前がまだわかりやすいな ただし おれはすでに開いているファイルじゃないと操作できないとかは全部知っている オブジェクト型変数の前にsetステートメントを置くことも知っている つまり Application.GetOpenfilename = ファイルを開いた時は文字列が返される workbook型に返せないのか? 答えはパス付きの文字列で帰って来るためにノーだ これも知ってる Workbooks.Open filename:=Application.GetOpenfilename これも知っている しかし結果としては ファイルを選択で開いたパス付き文字列を開く という命令なはず 同じパス付き文字列なのにworkbook型に格納できないのが意味がわからない : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/14(木) 00:35:42.03:oVDd8Fug0 ん?なんで? msgboxで表示されてもパス付きになるよ? : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/14(木) 00:41:28.15:oVDd8Fug0 またも意味不明な現象が起きた 拡張子を指定しなかったのに開いた 拡張子を指定したらなぜかエラーが出た なんでだ? ttps://i.imgur.com/lqUNtRU.jpg : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/14(木) 00:42:52.81:FrwGQASIx オブジェクトには、特にプロパティ名を指定しないでアクセスする場合に、優先的に参照されるプロパティが決められていて、それをデフォルトプロパティと呼ぶ オブジェクト型に合わないデータを代入してしまう構文になっているときでも、データの型がデフォルトプロパティの型に適合していればVBAはデフォルトプロパティへの代入として解釈して処理を受け付ける : デフォルトの名無しさん (ワッチョイ d2af-iA8U) [] 2017/12/14(木) 00:44:33.92:oVDd8Fug0 Workbooks.Open(filename:= ApplicationGetOpenFilename) →\C:〜〜〜〜という文字列が返される ApplicationGetOpenFilename →これも同じ なぜ前者はWorkbook変数に格納できて 後者はできないんだ? : デフォルトの名無しさん (ワッチョイ d2af-iA8U) [] 2017/12/14(木) 00:45:53.39:oVDd8Fug0 そんなもん知ってるわ Rangeやcellsのvalueみたいなもんだろ? Workbookオブジェクトのデフォルトプロパティはなんだ? : デフォルトの名無しさん (ワッチョイ d223-AMYv) [sage] 2017/12/14(木) 00:48:20.20:0XKK4N9O0 悪いけど の書き方じゃ分かってるようには見えない set を付けてない時点でこの人は分かってないんだなと判断されても仕方ない そして >Application.GetOpenfilename = ファイルを開いた時は文字列が返される も間違い Application.GetOpenfilename は、 あくまでもファイルのパス情報を文字列(或いは false)で返すだけで 実際にブックを開けることはしない だから正確に書くと Application.GetOpenfilename = ファイルを「選択した」時は文字列が返される というべきで、そのブックを開くためにworkbooks.open を用いる必要がある : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/14(木) 00:51:58.64:oVDd8Fug0 set オブジェクト変数を代入するとこに扱うステートメント : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/14(木) 00:53:08.36:oVDd8Fug0 ファイルを開いたっていうのは 選択したって意味なんだが オブジェクトとOPENメゾットで初めて開く こんなの知っている : デフォルトの名無しさん (ワッチョイ d223-AMYv) [sage] 2017/12/14(木) 00:53:19.64:0XKK4N9O0 でもまだ不正確だった より正確に言うと Application.GetOpenfilename = 「開きたい(あるいは移動、コピー、改名、削除など何らかの操作をしたい)」ファイルを「選択した」時は文字列が返される ですね : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/14(木) 00:55:08.87:oVDd8Fug0 んなもんしってるわ キャンセル押されたらフェイルス ファイルを選択したらパス文字列 : デフォルトの名無しさん (ワッチョイ d223-AMYv) [sage] 2017/12/14(木) 00:56:13.50:0XKK4N9O0 いや、それが分かってるなら何を問題にしてるのかがよく分からない それと「メゾット」じゃなくて「メソッド」ね : デフォルトの名無しさん (ワッチョイ 83e3-pDNe) [sage] 2017/12/14(木) 00:56:39.81:pIjJ7/MG0 真面目に答えるんじゃなくて わりと真面目に答えるように : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/14(木) 00:58:18.78:FrwGQASIx ちなみにworkbookオブジェクトのデフォルトプロパティは存在しない 存在しないから当然、workbook型に合わないデータは代入できない : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/14(木) 01:00:54.08:oVDd8Fug0 じゃあなんで workbook.openのパス文字列は入るんですかねえ : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/14(木) 01:01:13.61:oVDd8Fug0 ここまで答えなしだが 誰もわからないのか? : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/14(木) 01:01:34.43:oVDd8Fug0 おれの質問ってVBAの穴をついた? : デフォルトの名無しさん (ワッチョイ d223-AMYv) [sage] 2017/12/14(木) 01:04:09.93:0XKK4N9O0 質問の意味がわからないんですよね 何が疑問なのか、独自表現を用いずに、 set やなんかも省略せずに正しく動作するコードと 動作しない理由が知りたい動かないコードを書いてみてもらえます? : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/14(木) 01:05:31.95:FrwGQASIx workbooksは、workbookクラスではない 別のオブジェクトのクラスだ それから、さっきも書いたが、Openメソッドの戻り値は引数で指定されたパスを持つWorkbookオブジェクトなのであって、Openメソッドによってパス自体が戻ってくる訳ではない パスを返してくるApplicationクラスのGetOpenFilenameメソッドとは全く働きが違う プロパティやクラスや引数の名前で何となくbookとかfileとか付けばパス付のWorkbookオブジェクトが返ってくるものと混同してるようだが、きちんと区別しないといけない : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/14(木) 01:13:20.35:FrwGQASIx Openメソッドが要求する名前付き引数Filenameに、GetOpenFilenameで取得したパスを設定して、その結果新しく開いたWorkbookオブジェクトが返っているからだよ このFilenameはApplication.GetOpenFilenameメソッドの戻り値ではあるけど、Workbooks.Openメソッドの戻り値ではない Worksheets.Item(Index:=ActiveSheet.Name)みたいな処理と一緒だと言えば少しは分かるか? : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/14(木) 01:13:59.17:FrwGQASIx 突いてない 典型的な初心者の質問 : デフォルトの名無しさん (ワッチョイ b7a5-nSRQ) [sage] 2017/12/14(木) 01:17:18.86:LaUulqGP0 典型ではないな 低次元な初心者の質問 : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/14(木) 01:22:45.67:FrwGQASIx たぶんこの質問者は、コレクションを知らないタイプだな、 それから、式に含まれるプロパティ名やメソッド名をオブジェクトのクラス名と同一視しているタイプだろう : デフォルトの名無しさん (ワッチョイ 16b9-4pIx) [sage] 2017/12/14(木) 01:34:07.25:n2gI2QxJ0 たぶんハイパーリンクでパスが表現される事が多いところから、 パスが文字列とは異なるデータ型を持つ何かだと勘違いしてるだけじゃないの? : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/14(木) 07:32:56.86:oVDd8Fug0 workbooks.open filename:=Application.GetOpenfilename この場合はworkbooksオブジェクトに選択したパス文字列が格納されるのか? だからworkbook型に格納できるのか? : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/14(木) 07:37:06.65:oVDd8Fug0 ん? workbooks worksheets rows これはコレクションだろ? コレクションはオブジェクトの最上位 プロパティはオブジェクトの何? メゾットはオブジェクトに命令 違うか? : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/14(木) 07:40:17.60:oVDd8Fug0 マジでわかりやすい答えがない : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/14(木) 08:30:04.65:mohvOYX1x 君の言う「格納」は、コレクションへのオブジェクトインスタンスの追加、プロパティ値の設定、変数への代入、引数の受け渡し等がごちゃごちゃになっていると思う まず、Workbooksコレクションに、データの代入はできない WorkbooksコレクションはWorkbookオブジェクトの集まりを要素に持つコレクションオブジェクトだから それから、Workbooks.Open Filename:=Application.GetOpenFilenameという構文は、Workbook型の変数に値を代入しているわけではない Filenameという名前付きで定義されたOpenメソッドの文字列型の第一引数に値を渡していて、その結果としてOpenメソッドがWorkbookオブジェクトを返しているわけで、オブジェクト型変数への代入ではない : デフォルトの名無しさん (ワッチョイ ebf7-kJ08) [sage] 2017/12/14(木) 08:45:33.01:YV9D93CW0 コレクションは最上位じゃない 一番上にあるのはオブジェクト : デフォルトの名無しさん (ササクッテロラ Spc7-8sno) [] 2017/12/14(木) 08:46:43.07:QIiUylbtp いやそんなのしってるんだけど dim i string dim wb workbook application.Getopen filename:=で目的のファイルを開く そしたら「¥:目的のワークブック.xlsx」が文字列として帰って来る workbooks.open filename:=目的のファイル これで初めて目的のファイルが開く ここで本題 どちらも目的のファイルのバス名が返ってきているのに set wb = application.GetOpen filename だとエラーで set wb = workbooks.open (filename :=目的のワークブック.xlsx) これならwbオブジェクト型変数に代入される意味がわからない これをはっきり答えろ わかりやすくな : デフォルトの名無しさん (ササクッテロラ Spc7-8sno) [] 2017/12/14(木) 08:47:18.91:QIiUylbtp 一番上 ↓ 最上 日本語やり直したほうがいい : デフォルトの名無しさん (ワッチョイ 16b9-4pIx) [sage] 2017/12/14(木) 09:00:03.55:n2gI2QxJ0 Set wb = Application.GetOpenFilename は、String型をWorkbook型のポインタへ代入しようとしてエラー吐いてる。 Set wb = Workbooks.Open(Application.GetOpenFilename) Set wb = Workbooks.Open("目的のワークブック.xlsx") は、OpenメソッドにString型変数を渡しているから機能する。 : デフォルトの名無しさん (ササクッテロラ Spc7-8sno) [] 2017/12/14(木) 09:02:02.66:QIiUylbtp workbook型のポインタってなに? これがわかればすっきり : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/14(木) 09:02:04.79:CHPwg0pDx コレクションはオブジェクトの最上位、という発想がそもそも間違い コレクションは子要素に追加されているデータやオブジェクトへのアクセス等を提供する、子要素からは独立したオブジェクトだ 更に、WorkbooksコレクションオブジェクトはWorkbookオブジェクトのみを要素に持つようにあらかじめ最適化された規定のコレクションオブジェクト : デフォルトの名無しさん (ササクッテロラ Spc7-8sno) [] 2017/12/14(木) 09:05:19.87:QIiUylbtp WB型変数に文字列代入は不可 メゾットの戻り値の代入は可能ってこと? なんで? : デフォルトの名無しさん (ワッチョイ ebf7-kJ08) [sage] 2017/12/14(木) 09:05:51.56:YV9D93CW0 日本語だけ知ってても言語仕様を正確に説明する難しいんだよ コンピューター業界では「上位」などの言葉には特別な意味を持たせる場合もあるし、 とくに相手がド素人だと、言葉の意味から説明するのも面倒だから、あえて上位という単語は避けた上で なんとなく通じてくれそうな「上」って言い方をしたんだよ お前の態度が気に入らないからワッチョイ Spc7はNGするわ 人に何か質問する時は最後までていねいな言葉を使え : デフォルトの名無しさん (ササクッテロラ Spc7-8sno) [] 2017/12/14(木) 09:07:28.47:QIiUylbtp うんこーwwwwwwwwwwうんこーwwwwwwwwww : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/14(木) 09:08:52.24:CHPwg0pDx そもそもApplication.GetOpenFilenameはブックを開いてブックへの参照を返すメソッドじゃなくて、ユーザーにダイアログ画面上で選択させたファイルのパスを返すメソッドなんだが メソッド名で混乱してるだろ君 : デフォルトの名無しさん (ササクッテロラ Spc7-8sno) [] 2017/12/14(木) 09:11:20.55:QIiUylbtp いやしってるけど キャンセルが押されたらフェイルスだし 選択したらパス名が返って来る 何回言えば気がすむんだよ : デフォルトの名無しさん (ササクッテロラ Spc7-8sno) [] 2017/12/14(木) 09:12:47.30:QIiUylbtp Openメゾットはただブックを開くだけだろ? ただし 引数を戻り値として得られる つまり 開いたファイル名がOpenメゾット内にある 違うかい?いい線いってる? : デフォルトの名無しさん (ワッチョイ 16b9-4pIx) [sage] 2017/12/14(木) 09:13:02.91:n2gI2QxJ0 なんでも何もデータ型が一致するかどうかが問題であって、メソッドの戻り値の型は一致するってだけ。 たぶんJavaScriptから始めたせいで認識がおかしくなってるんだろうけど、 普通はデータ型が異なる変数同士の代入は出来ない。 : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/14(木) 09:14:18.68:CHPwg0pDx この質問者みたいな人が言語仕様について思い込みや勘違いをしたまま共用マクロを組んだりすると、会社にとって迷惑なだけなんだよな 作ったマクロを他人と共有しないことを祈るのみ : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/14(木) 09:20:19.35:CHPwg0pDx それ俺がきのう説明したことだよねw オブジェクト型変数にGetOpenFilenameから返った文字列型データやデータ配列を設定しようとしてるのがおかしいんだがw データ型とか一回学んだ方が良いと思うよ それから蛇足だけど、フェールスじゃなくて、フォルス、フォールス、ファルスの何れかの表記にしないと、Falseのことだと理解してもらえないことが多いと思うよ : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/14(木) 09:25:08.03:CHPwg0pDx 引数の文字列は戻り値にならない Openの戻り値はWorkbookオブジェクトの実体だ Workbookオブジェクトの実体とパス文字列はイコールじゃない それから、メゾットじゃなくてメソッドな あんまり特徴的な言葉づかいしてるとメゾット君と フェールス君とか呼ばれたりするかもしれないから気を付けなよ : デフォルトの名無しさん (ササクッテロラ Spc7-8sno) [] 2017/12/14(木) 09:30:34.82:QIiUylbtp 実体でなに?どころどころで補足質問しねえといけねえのかよ : デフォルトの名無しさん (ササクッテロラ Spc7-8sno) [] 2017/12/14(木) 09:31:25.92:QIiUylbtp 変数同士? workbook型あとは何? これも補足質問 : デフォルトの名無しさん (ササクッテロラ Spc7-8sno) [] 2017/12/14(木) 09:32:51.20:QIiUylbtp データ型の参考ページは? 猿でもわかるやつ : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/14(木) 12:17:27.13:7XekaZVWx その言い方は猿に対して失礼だぞメゾット君 WordやPowerPointのVBAと違ってExcelは「Excel VBA データ 型」でググれば腐るほど情報が出てくるから、好きなページを読んで出直してきたらいいさ インスタンスもググってみたらいいよ : 名無し (ワンミングク MM42-cZUN) [sage] 2017/12/14(木) 12:34:50.44:DWbie50BM Workbookの実体とは開いて実行しているエクセルブックのことだよ。ブックはVBAが管理しているメモリ上のデータではないってこと。そこにアクセスする為の情報だけがWorkbook型変数には格納されている。 これ以上はググったほうがいいな。メゾットちゃんには言葉だけでは通じないみたいだし。 : デフォルトの名無しさん (スププ Sd32-Zftp) [sage] 2017/12/14(木) 12:36:44.73:bra/P7/Ad どう考えてもこいつは型も文法も戻り値も理解できてないだけだろ : デフォルトの名無しさん (JP 0H42-Vy73) [sage] 2017/12/14(木) 12:45:31.15:PlqHEg1vH インスタンスはお湯かけて3分で完成するよ (´・ω・`)b : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/14(木) 13:37:10.14:D0PQd/9/a 体系だてた答えがほしいならオブジェクト指向あたりの本読んだ方がいいんじゃねえの 正確にはオブジェクト指向じゃないけどクラスとインスタンス(やそれにくっついてるメソッドやプロパティ)の関係を理解するにはそれがはや道だわ ここは教科書じゃないから : デフォルトの名無しさん (ササクッテロラ Spc7-8sno) [] 2017/12/14(木) 14:17:01.84:QIiUylbtp なんでぱぱっと答えられねえの?頭悪いの? : デフォルトの名無しさん (ササクッテロラ Spc7-8sno) [] 2017/12/14(木) 14:18:03.10:QIiUylbtp ふーん 開いてから格納する これだけだよね?詰まる所は : デフォルトの名無しさん (ササクッテロラ Spc7-8sno) [] 2017/12/14(木) 14:27:22.00:QIiUylbtp Openメソッドで開かないと workbook型に入らない : デフォルトの名無しさん (ササクッテロロ Spc7-rmn3) [sage] 2017/12/14(木) 14:28:58.06:oiVEYMPnp それは結果に過ぎない ちゃんと原因や理屈を押さえないとまた同じことで詰むぞ : デフォルトの名無しさん (ササクッテロラ Spc7-8sno) [] 2017/12/14(木) 14:49:26.55:QIiUylbtp それをわかりやすく教えて ほんとにわかりやすく : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/14(木) 14:51:48.29:/xE3TN/oa 無理だよ : デフォルトの名無しさん (ササクッテロラ Spc7-8sno) [] 2017/12/14(木) 15:05:19.17:QIiUylbtp 別の言葉に置き換えればいいだろ? : デフォルトの名無しさん (オイコラミネオ MM6e-PYJi) [sage] 2017/12/14(木) 15:22:14.17:yqG/N6/gM ID:QIiUylbtpはVBA以外の言語知ってるの? それともExcel VBAで初めてプログラミングに触れましたって人? お前の学習レベルがわからないからお前でもわかるように説明できないんだ : デフォルトの名無しさん (アウアウカー Sa6f-tkV0) [sage] 2017/12/14(木) 15:43:20.73:Sk339KZTa ここには、彼の疑問に答えられるような人はいない。 こんぴゅうたーのでんげんをいれるとどうしてえくせるがうごくのかをせつめいするのはむずかしい。 でんきにはつうでんしてるときとつうでんしていないときがあるのでそれをりようしてぜろといちをくべつできる。 ぜろといちをくべつできればにしんすうをりようして... : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/14(木) 17:51:08.32:Gx1HQ3cua 大体教えてもらう立場のやつがとる態度じゃないからまともに取り合ってもらえると思ってる時点で頭が悪い : デフォルトの名無しさん (ワッチョイ ff8a-T3BS) [sage] 2017/12/14(木) 18:34:15.80:Dm16MIru0 初心者なのに態度悪いからNGにしたわ。 教えてもらう態度じゃないよね。子供ならまあ納得だけど。 : デフォルトの名無しさん (アウアウカー Sa6f-tkV0) [sage] 2017/12/14(木) 19:23:24.80:IXGcMbV0a そもそもWorkbooksに指定するのはエクセルファイル名じゃない。 ブック名だ。 開いたブックのブック名とファイル名が同じになるから勘違いしてる奴もいるかもしれんが。 : デフォルトの名無しさん (ワッチョイ 5303-6+fO) [] 2017/12/14(木) 19:24:50.30:oezENCsV0 同じだったらファイル名でええやんw何鼻息荒くしてんの?w : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/14(木) 20:32:08.46:g1PrWAQxx 恐らくはWorkbooks.Itemの引数について話してるんだろうだが、君にはそのあたりが分からんみたいだな : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/14(木) 20:33:08.02:g1PrWAQxx 安価間違えた、これは宛 : デフォルトの名無しさん (スププ Sd32-Zftp) [sage] 2017/12/14(木) 21:01:41.06:bra/P7/Ad をもとに考えてみた お金を入れるとカップにジュースが注がれる自販機を思い浮かべるんだ Set wb = 'ジュースが入るカップ Workbooks.Open( _'お金を判別してボタンが押されるとジュースを出す回路 Application.GetOpenFilename _'お金 ) →お金を入れてボタンを押したらカップにジュースが注がれる Set wb = Application.GetOpenFilename →カップに直接お金を入れて飲めないと騒ぐあほ どうだ!? : デフォルトの名無しさん (ワッチョイ a7b3-nYOw) [sage] 2017/12/14(木) 21:06:22.48:zDxHi8mM0 お前バカだろ 変数wbはただの入れ物 workbook型しか入れられない入れ物にString型入れようとしてんだぞ? これでわからないならただのバカだから二度と来るな : デフォルトの名無しさん (ワッチョイ 5303-XmSw) [sage] 2017/12/14(木) 21:25:56.75:oezENCsV0 おまえのカアチャンは誰でも受け入れるのにwbって意外と固いんだな : デフォルトの名無しさん (ササクッテロラ Spc7-8sno) [] 2017/12/14(木) 21:27:02.90:QIiUylbtp うん それはしってるよ でもworkbooks.Openでも同じだよね 文字列帰って来るよね : デフォルトの名無しさん (ササクッテロラ Spc7-8sno) [] 2017/12/14(木) 21:32:46.73:QIiUylbtp application.getOpenfilename →あ.xlsxを選択 C:¥あ.xlsx が帰って来る workbooks.Open filename:=application.getOpenfilename(つまりC:¥あ.xlsx) ん?どっちもパス付きのブック名じゃねえの? ってことをいってる : 名無し (ワッチョイ ef65-cZUN) [sage] 2017/12/14(木) 21:55:08.02:5D+dY0yO0 文字列として返ってきたから文字列型と思ってるなら、一回workbook型をウォッチに入れてみたら? ツリー形式でオブジェクトの、中身が見れるから全然別ものだとわかるはず : デフォルトの名無しさん (ワッチョイ a7b3-nYOw) [sage] 2017/12/14(木) 21:58:53.83:zDxHi8mM0 バーカw "C:\うんち.xlsx"がworkbooks型の変数に代入できる分けないだろw まあデフォルトプロパティなんてものが罪なんだが てか、workbooks型のデフォルトプロパティってNameプロパティなんだな(Pathか?) はじめて知ったわ、使わんから : デフォルトの名無しさん (ワッチョイ 1e9f-iA8U) [sage] 2017/12/14(木) 22:19:18.62:cH/6/SdG0 Application.GetOpenFilename → 指定したファイルのパス【String型(正確にはVariant)】を取得 Workbooks.Open → filenameに【String型でファイルパスを指定】すると そのファイルを開いた結果の【Workbook型オブジェクト】を取得 Dim str as String Dim wb as Workbook str = Application.GetOpenFilename →OK str = Workbooks.Open(Application.GetOpenFilename) →NG Set wb = Application.getOpenfilename →NG Set wb = Workbooks.Open(Application.GetOpenFilename) →OK オブジェクトブラウザーを見ると勉強になるよ それぞれ、こうなっている Class Application Function GetOpenFilename() Class Workbooks Function Open(Filename As String) As Workbook : デフォルトの名無しさん (アウアウカー Sa6f-tkV0) [sage] 2017/12/14(木) 23:32:44.97:IXGcMbV0a 違う。 新規ブックの場合はファイル名じゃないだろ。 理解出来て無い奴に理解出来る奴向けの説明をしても駄目だ。 たまたま同じになってもブック名はファイル名じゃ無い。 だからパス付きだろうがパス無しだろうがファイルはファイルだと考えても、それとは関係ないブック名は違う。 C:¥abcd.xlsxというファイルとブック名としてのabcd.xlsxとは何の関連も無い。 似たように見えるのはたまたまだ。 だからC:¥abcd.xlsxはブック名には成りようがない。 Application.GetOpenFilenaneで帰ってくるのは"C:¥あ.xlsx"という文字だけな。 Excelブックとは関係ないファイル名だな。 例えばメモ帳で適当に入力して保存したファイルでも取ってこれるだろ。 それに別に"C:¥あ.xlsx"はExcelじゃないと開けないというわけでも無いぞ。 そもそも"C:¥あ.xlsx"はApplication.GetOpenFilenaneで取ってきたからファイル名だろうけど、取ってきた後のその文字列は=ファイル名とは限らん。 Dim wb As Workbook Dim strFile As String strFile=Application.GetOpenFilename ってのはstrFileにたまたまApplication.GetOpenFilenameによってファイル名が入ったということで、 Set wb = Workbooks.Open(strFile) のstrFileがファイル名かどうかは分からん。 このー文はApplication.GetOpenFilenameのことなんか知らんからな。 このー文の意味するところはstrFileをファイル名と思って開いてみて、開けたらwbに格納するってこと。 : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/14(木) 23:34:29.57:oVDd8Fug0 短くわかりやすくまとめられるやついねえの? いくらVBAができたって引き継ぎができない奴は無能なんだが : デフォルトの名無しさん (ワッチョイ d2af-iA8U) [] 2017/12/14(木) 23:41:16.00:oVDd8Fug0 俺もずっとROMってたけど こいつらの説明はマジで意味不明だわ お、良い線言ってんな って思ったらいきなりカタカナ語がでてきてググっても意味不明 こいつらマジもんのコミュ障すぎてイラつきしかない オナニー発言ばっかで答えがない Apllcation.GetOpen でaaaっていうエクセルを開く C:\aaa.xlsx が返ってくる しかしWB(Workbookオブジェクト変数にしている)では指定できない でも Workbooks.Open filename:=Apllcation.GetOpen これはWorkBook型に入る つまるところどっちもC\aaa.xlsxって文字列を返してんじゃねえの?何がちげえの?ってこと これいうの10回目ないい加減学習しろイラつくな : デフォルトの名無しさん (ワッチョイ d2af-iA8U) [] 2017/12/14(木) 23:44:38.82:oVDd8Fug0 こいつらのたとえ 子供がリンゴを指さす 「これなに?」 こいつら 「これは物質○○が含まれて○○っていう色素があって赤い、つまり栄養は○○がふくまれている ちなみにその栄養は○○って物質にも入っている」ドヤァ って感じ 見ててムカつくから発言したわ : デフォルトの名無しさん (ワッチョイ d2af-iA8U) [] 2017/12/14(木) 23:46:05.94:oVDd8Fug0 おれが聞きたいのは なんでワークブックスオープンで指定したファイル名文字列だとワークブック変数に格納できんだよって話 ゲットオープンはパスがついているから格納できないのはわかった わかりやすく答えろ : デフォルトの名無しさん (ワッチョイ 16b9-4pIx) [sage] 2017/12/14(木) 23:55:54.24:n2gI2QxJ0 前にいた関西弁の荒しと同一人物なんだろうけど、健気にもちょっと勉強してきてるのが笑えるw : デフォルトの名無しさん (アウアウカー Sa6f-tkV0) [sage] 2017/12/14(木) 23:56:28.06:qidVZ8HWa 無理。 軍事用にコンピューターというものが発明されてから今日までの歴史と仕組みを説明しなきゃならんから。 そして、君にそれを理解出来るだけの能力が有るとは思えないから。 大抵の人は全てを理解しているわけじゃ無いが、自分の利用している範囲ぐらいは理解している。 : デフォルトの名無しさん (アウアウカー Sa6f-tkV0) [sage] 2017/12/15(金) 00:06:16.08:sv72SjNaa ん? >Apllcation.GetOpenでaaaっていうエクセルを開く これ間違い。 開かない。 ファイル名を取得するだけ。 >しかしWB(Workbookオブジェクト変数にしている)では指定できない ファイル名じゃないからな。 ブック名を指定する必要がある。 たまたま偶然ファイル名と同じだけどパス付きはブック名とは違うな。 >Workbooks.Open filename:=Apllcation.GetOpen これはWorkBook型に入る Workbook型に入ってるのはファイル名じゃない。 Set WB=Workbooks.Openの意味するところはfilenameに指定された文字列をファイル名と見立ててブックを開き、もし仮に運よく開くことができたらそのブックをWBに格納するという意味。 : デフォルトの名無しさん (ワッチョイ d2af-iA8U) [] 2017/12/15(金) 00:18:22.73:qta4Ddk+0 >指定された文字列をファイル名と見立ててブックを開き これが意味不明 GetOpenで指定したファイル名を返すんだろ? じゃあこれはファイル名になるじゃねえのか? ファイルを開かなかった場合はファルスがかえることはわかる : デフォルトの名無しさん (アウアウカー Sa6f-tkV0) [sage] 2017/12/15(金) 00:22:57.61:OGmesrFEa GetOpenFilenameの文とWorkbooks.Openの文は別の文だろ。 プログラム組む奴はGetOpenFilenameで取得したものと違うものを入れることも出来る。 だから結果的に入ったのはファイル名でも、 Workbooks.Open自身はそれを前提にはしないだろ。 : デフォルトの名無しさん (スップ Sd52-KWTc) [sage] 2017/12/15(金) 00:25:39.28:HZMi2rOwd このレスの一番下がわかりやすいんじゃない? : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/15(金) 00:26:48.82:qta4Ddk+0 日本語話して ドヤ顔くん : デフォルトの名無しさん (アウアウカー Sa6f-tkV0) [sage] 2017/12/15(金) 00:26:50.88:Ma3k2IENa GetOpenFilenameはメモ帳のファイル名を取って来ることも出来る。 Wordのファイル名を取って来ることも出来る。 Workbooks.Openで開けないファイル名ということも有るし、Workbooks.Openで開けるファイル名だとしてもExcelで開かなければならないということも無い。 : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/15(金) 00:27:25.61:qta4Ddk+0 オブジェクトブラウザーでてなんだよ わからねえよ : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/15(金) 00:28:29.79:qta4Ddk+0 あーなんとなくわかったかな Openメソッドで開ける=エクセル型=ワークブック型に格納可能 ってこと? : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/15(金) 00:32:05.55:qta4Ddk+0 つまりだ 君が言いたいのは(要約しないとダメなのかよ、、、) application.GetOpenfilenameだと文字列として返ってくる workbook型には文字列は入らない こういうことが言いたいのね? : デフォルトの名無しさん (アウアウカー Sa6f-tkV0) [sage] 2017/12/15(金) 00:33:26.47:JSBwNcqSa それはコンピューターというものをまるで理解出来ていないからそうなる。 厳密には strFile = Application.GetOpenFilename が実行されたからstrFileはファイル名だろとコンピューターに言っても、コンピューターは違います、文字列です。と言う。 strFileに入っている文字列のファイルは有るのかと問えば、有ります。と言う。 じゃあ、strFileはファイル名じゃねえかと問えば、違います、文字列です。と言う。 コンピュ−ターは人間が考えるような意味を理解しない。 定義通り動くだけ。 : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/15(金) 00:35:45.56:qta4Ddk+0 また回りくどい言い方してんな 頭悪いのか : デフォルトの名無しさん (アウアウカー Sa6f-tkV0) [sage] 2017/12/15(金) 00:39:33.42:OGmesrFEa その理解で良い。 : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/15(金) 00:41:12.92:qta4Ddk+0 最初からこう言えよ 馬鹿じゃねえの? ほんとにバカしかいねえよ 呆れるというか心配になってくる : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/15(金) 00:42:06.72:qta4Ddk+0 補足するとworkbook.Openで返ってくる(開く)=workbook型ということね : デフォルトの名無しさん (アウアウカー Sa6f-tkV0) [sage] 2017/12/15(金) 00:42:07.75:W4xtzKqva 君がどこまで分かって無いのか、こっちは分からないんだ。 エスパーじゃ無いんだから。 の話だって型とは何だ?という説明もしなきゃならんのか?と考えればのような話も必要になって来る。 : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/15(金) 00:57:45.39:2M4lhz74x 最初からみーんなそう言ってるぞw ようやく頭が追い付いてきたのかな? : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/15(金) 01:03:08.36:2M4lhz74x メゾット君もだんだん自分の頭の悪さを自覚してきてるみたいだし、あと二日以内には恥ずかしい捨て台詞を残して消える運命かな レス保存したからいつでも再放送出来るけどなwww : デフォルトの名無しさん (ワッチョイ de9d-Nij6) [sage] 2017/12/15(金) 01:23:44.47:IJmI7Oq80 ,516 でまっさきに型を理解しろって言ってんだが まあここまで食い下がる根性は認めるけど、いいかげん最低限は自分で勉強してくれ : デフォルトの名無しさん (ワッチョイ b7a5-nSRQ) [sage] 2017/12/15(金) 01:24:37.63:JMZCHg3W0 多分Excel VBA入門的な記事を読み進めればすぐに理解できたと思うんですけど 勉強の進め方が下手くそすぎる : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/15(金) 09:26:34.27:qta4Ddk+0 で、この型をしっかりと説明してるのはどこだ? : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/15(金) 09:27:43.96:qta4Ddk+0 URLでもなんでも貼ってよ : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/15(金) 10:46:54.06:qta4Ddk+0 ちなみにさ VBAってなんでメンテナンスがいるの? コードを直接弄るわけじゃないからバグなんてでないと思うけど : デフォルトの名無しさん (オイコラミネオ MMb3-PYJi) [sage] 2017/12/15(金) 11:01:21.94:sRcKW4ZTM てめーの提示したコードエラー出まくりバグばっかじゃねーか : デフォルトの名無しさん (ワッチョイ 778c-E7Ol) [sage] 2017/12/15(金) 11:23:22.68:HChVIO9E0 コードは変わらなくてもWindowsとかExcelとか業務仕様とか、まわりが変わっていく : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/15(金) 11:26:16.78:qta4Ddk+0 VBAは楽しいぞ 俺はmos マスターだがVBAはいっさん知らんかった 最終目標としては意味不明な超複雑なコードを記述し おれが辞めた後は誰も対処ができないという優越感を味わいたい そしてVBEをだしてカチカチしてる姿がなんとも知的でかっこいい ほんとこれだけのきっかけが知識につながって行く : デフォルトの名無しさん (スッップ Sd32-GTd9) [] 2017/12/15(金) 11:36:34.77:yfj2Ro7Gd 今どきVBAに新規参入者がいる驚き : デフォルトの名無しさん (ワッチョイ 778c-E7Ol) [sage] 2017/12/15(金) 11:48:05.70:HChVIO9E0 : デフォルトの名無しさん (ワッチョイ de9f-SC1D) [sage] 2017/12/15(金) 12:00:52.51:IqUBh/zH0 それは能力の低い奴の言う言葉。 能力のある奴はお前が辞めても対処できるように記述する。 : 名無し (ワンミングク MM42-cZUN) [sage] 2017/12/15(金) 12:08:15.31:aoP9DSfXM いや、ずっと同じ質問してる辺りこれっぽっちも知識が増えているように見えないんだが そしてブーメランに草 : デフォルトの名無しさん (ワッチョイ de9f-SC1D) [sage] 2017/12/15(金) 12:11:37.98:IqUBh/zH0 そこをあっさり理解出来ないからここまで時間制掛かってる。 彼の分かってない所はみんながそういうもんだとあっさり進む所で自分中心で考えること。 コンピューターが自分と同じように考えてくれると思ってる。 アレンブラやマシン語の不自由な世界で自分と同じようには考えてくれないということを思い知った方が良い。 : デフォルトの名無しさん (ワッチョイ 16b9-4pIx) [sage] 2017/12/15(金) 12:26:43.87:SvHkecGU0 もの凄く複雑で他人の理解が及ばないようなコード書くのが目標なら、 なおさら誰の助けも借りずに独学で高めていくのが重要なんだよなぁ。 ネットで検索して簡単に見つかるような情報すら当たれないヤツが目指すものじゃないよね。 : デフォルトの名無しさん (オッペケ Src7-XmSw) [sage] 2017/12/15(金) 12:27:05.72:JZsZmqT4r いやなんかまた鼻息荒くしちゃってるけど元々同じって言ったのお前だからなw なんで素直にブック名とファイル名は違うって言えないんだよw どうせ下手くそな説明なんだから無理して技巧的に言おうとすんなw : デフォルトの名無しさん (ワッチョイ d2af-iA8U) [] 2017/12/15(金) 12:27:38.94:qta4Ddk+0 こいつらのオナニー意見なんて一切参考にせず自己解決したんだが? Wrokbook型変数「これは文字列だから俺の方にははまらないよ」 = _ Application.GetOpenFilename「すまん、俺はただ選択されたファイルの文字列を返すだけなんだよ」 Workbook型変数「お、WorkbooksオブジェのOpenメソッドで開いとるやん。格納できるよ」= _ Workbooks.Open (Filename:=Application.GetOpenfilename)「俺は開いた文字列をファイル名として返すね」 これでどう?誰でもわかりやすいと思うけど? 頭悪すぎね?君たち : デフォルトの名無しさん (スッップ Sd32-GTd9) [] 2017/12/15(金) 13:00:25.68:yfj2Ro7Gd なんか 1 + 1 =2 を 「1に1を加えると2になる」 と表現してる感じだなあ : 名無し (ワンミングク MM42-cZUN) [sage] 2017/12/15(金) 13:01:13.53:aoP9DSfXM もう突っ込まないぞ! 次のお客様どうぞ : デフォルトの名無しさん (ワッチョイ 16b9-4pIx) [sage] 2017/12/15(金) 13:03:33.01:SvHkecGU0 そもそもWorkbooks.Openメソッドはファイル名を返さないから、 「1+1 は 2 じゃないぞ。俺たちは 1 + 1で200だ。10倍だぞ10倍」みたいなもん。 : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/15(金) 13:34:09.09:8rowC9ysa わかった!君はプログラムじゃなくて日本語の勉強から始めよう : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/15(金) 13:34:59.69:8rowC9ysa 会話形式にしてくれないと理解できないといってくれれば誰か頑張ったかもねw : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/15(金) 13:57:32.57:qta4Ddk+0 はいはいブック名ね どっちでもいいだろアホ : デフォルトの名無しさん (ワッチョイ 16b9-4pIx) [sage] 2017/12/15(金) 14:06:04.35:SvHkecGU0 ブック名も返さないよ。 何にせよWorkbooks.Openメソッドが名前を返したら Set WB = Workbooks.Open(Application.GetOpenFilename) が成立しないから。 : デフォルトの名無しさん (オイコラミネオ MMb3-PYJi) [sage] 2017/12/15(金) 14:12:36.10:sRcKW4ZTM いいからMSDNのリファレンス読んでこいよ : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/15(金) 14:42:08.62:qta4Ddk+0 はいはい workbookオブジェクトを返すのね はいはい死ね死ね : デフォルトの名無しさん (ワッチョイ de9f-SC1D) [sage] 2017/12/15(金) 14:44:22.53:IqUBh/zH0 それ、全部既に言ってたからw お前はみんながすんなり分かるところをこれだけすったもんだしてやっと分かっただけ。 これまでのやりとりが無かったら、それそのまんま言っても理解出来て無い。 そもそも、バカがどうしてバカなのかなんてこっちは理解出来ない。 お前とは違うからな。 : デフォルトの名無しさん (オイコラミネオ MM6e-PYJi) [sage] 2017/12/15(金) 14:47:50.40:xyZ0U828M メソッドの返り値として何の型のどんなオブジェクトが返ってくることを意識する重要さが微塵もわかってないのでこいつのVBAスキルはここで打ち止めだな : デフォルトの名無しさん (ササクッテロロ Spc7-rmn3) [sage] 2017/12/15(金) 15:09:10.26:vqijPR8bp 以降はスルーしよう : デフォルトの名無しさん (スッップ Sd32-GTd9) [] 2017/12/15(金) 15:21:09.44:yfj2Ro7Gd 整数 + 整数の戻り値が整数なのに整数 / 整数の戻り値が整数じゃない理由がわからない、不合理だ、と 駄々をこねる人間もいるんだからしょうがない : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/15(金) 19:31:32.21:lmKJ5VLWa 世の中にはこういう本物のバカもいるんだなあと勉強になったよ : デフォルトの名無しさん (ワッチョイ 5303-6+fO) [] 2017/12/15(金) 19:39:48.70:IAZ3SurN0 わりとそこかしこに居るけどな、本物のバカ ひきこもりか?おまえw : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/15(金) 21:40:28.03:qta4Ddk+0 まだ始めて2週間って話してなかった? ちなMOSエキスパート所持者ね : デフォルトの名無しさん (ワッチョイ 16b9-4pIx) [sage] 2017/12/15(金) 21:49:11.45:SvHkecGU0 からもう二週間も経ったのか。時が経つのは早いな。 : デフォルトの名無しさん (ワッチョイ 1ff7-E651) [sage] 2017/12/15(金) 22:06:37.13:5LKBHQ7A0 > ちなMOSエキスパート所持者ね ここ、笑うとこですか? : デフォルトの名無しさん (アウアウカー Sa6f-tkV0) [sage] 2017/12/15(金) 22:06:40.33:sA/nQpBXa MOSエキスパート? 何それ美味しいの? 昔、「初心者だから仕様がないけどさ」と説教した相手が今回君が挑戦してる言語のエキスパート持ってたけどさ。 : デフォルトの名無しさん (ワッチョイ 1693-qk9N) [sage] 2017/12/16(土) 04:53:25.79:kSf4Qz7z0 先日、AutoFilterとValidationの不具合で質問したものです。 (まだ解決していませんが、、) また新たな不具合に悩まされています。 このような場合、どこに報告すればMSの目にとまりますかね? もし同一環境のかたおられましたら再現テストしていただけるとありがたいです。 [環境] Microsoft Office Home and Business 2013 バージョン: 15.0.4989.1000 (2017/12) Excel2013 Win10 64bit Core i7 Mem8GB [手順] 以下の手順で実行するとシートSelectが不完全な状態になる。 Trigger: 別シートの貼付画像のOnAction →PopupMenuのOnAction →呼び出されたProc内で、SheetSelect 続けてAutofilter実施 (直接の原因ではない) (その2へ) : デフォルトの名無しさん (ワッチョイ 1693-qk9N) [sage] 2017/12/16(土) 04:53:47.87:kSf4Qz7z0 (その2) [現象] ・Fitering成功しているように見えるが、非表示セルにカーソル移動できてしまう。 ・セル値の削除が効かない。(連動イベントが動かず、本現象に気づく) ・範囲コピー貼り付けが正しく行われない。 ・セルをコピーモードにしても、選択範囲が破線矩形にならない。 →なんと恐ろしいことに、操作の対象が現在見えているActiveCellではなく、 呼出元画像のあるシートの同一番地に対して行われている様子。 破線矩形も元シートを開いたらそこにあった。 削除処理も元シートに対して行われる。 ステータスバーのセル値カウントも、現在見えているシートではなく、呼出元の情報を返す様子。 ActiveCell.Address(External:=True)は実際に見えている移動先シートを示しているのに、、、 [発生条件の再検証] ・別シートの画像.OnAction→Popup.OnActionで初めて成立。 ・画像.OnActionから直接Proc実行(Sheet選択、Autofilter実施)では再現せず。 ・Alt+F8からのPopup起点とすると再現せず。 ・Popup.OnActionを入れ子にしても再現せず。 ・ボタンをTableと同じシートに配置した場合は再現せず。 ・Office2010では再現せず。 (その3へ) : デフォルトの名無しさん (ワッチョイ 1693-qk9N) [sage] 2017/12/16(土) 04:54:06.08:kSf4Qz7z0 (その3) [試験に用いたコード] 1) テーブルとは別シートにある画像を選択して、ImmediateからOnAction登録。 Selection.OnAction = "mkPop" 2) Popup生成 Sub mkPop() With CommandBars.Add(Position:=msoBarPopup) With .Controls.Add .Caption = "Filter" .OnAction = "DoFilter" End With .ShowPopup .Delete End With End Sub 3) Filterling実施 Sub DoFilter() Sheets("List").Select Sheets("List").Range("$A$1:$C$5").AutoFilter Field:=1, Criteria1:="TEST" Debug.Print ActiveCell.Address(external:=True) '確認用 End Sub ** 実際には機材画像のPropertyから読み込んだ文字列でフィルタリング。 ** 今回はAutoFilterは無実でシート選択の不全実行が現象の概要とみています。 : デフォルトの名無しさん (ワッチョイ 1693-qk9N) [sage] 2017/12/16(土) 04:56:00.08:kSf4Qz7z0 環境情報が抜けていました。 Win10 バージョン 1703 (OS ビルド 15063.786) : デフォルトの名無しさん (ワッチョイ 1693-qk9N) [sage] 2017/12/16(土) 05:17:34.49:kSf4Qz7z0 (その4) 回避のためのリフレッシュ手順を忘れておりました。 [効果があるリフレッシュ操作] ' 以下、または手動によるシート切替(Screenupdating=False効かず、ちらつくが、、) '-------------------------------- Application.SendKeys "^{PgDn}":Application.SendKeys "^{PgUp}" ' Popup表示前にSheet移動してしまう。(Cancel有無にかかわらず移動してしまうが、、) '-------------------------------- Application.ScreenUpdating = False: Sheets("List").Select .ShowPopup [効果がないもの] ' Filtering直前のAutoFilter再設置 ActiveSheet.Range("$A$1:$C$5").AutoFilter ' 画面再描画処理 Application.ScreenUpdating = False: Application.ScreenUpdating = True ' その他、以下を試したがNG Application.EnableEvents = True Application.DisplayFullScreen = True: Application.DisplayFullScreen = False Application.CalculateFull Application.CalculateFullRebuild AppActivate (Application.Caption) Worksheets("List").Activate Application.StatusBar = "aaaaaa": Application.StatusBar = False MsgBox "OK" : 名無し (ワッチョイ ef65-cZUN) [sage] 2017/12/16(土) 05:26:07.46:j6rMoAMF0 そういうときは、doeventsやwaitも試してみるべし 今パソコン無いから試す暇がない : デフォルトの名無しさん (ワッチョイ 1693-qk9N) [sage] 2017/12/16(土) 05:36:15.74:kSf4Qz7z0 そういえばDoEventsは試しました。 結果効果はなく、SendKeysを無効化して現象回避もできなくなるという逆効果も確認しました。 Waitはどこに入れると効果的ですかね。 間にStopを入れて一時停止したりはしてみましたけど、、、 : デフォルトの名無しさん (ワッチョイ 1693-qk9N) [sage] 2017/12/16(土) 05:45:39.73:kSf4Qz7z0 今回のはあまり待ち要素はないと見ていますが、以下の3カ所に2秒ほど入れてみました。 ・シート切替の前後、.ShowPopupの直前 再現してしまいました。 : デフォルトの名無しさん (ワッチョイ b7bd-KR2E) [sage] 2017/12/16(土) 18:57:10.19:9cn7Nun80 現在vbaをネットで勉強中ですが書籍も使って勉強しようと思っています プログラミング初心者がvbaを学ぶのにお勧めの書籍を教えていただけませんか? : デフォルトの名無しさん (アウアウカー Sa6f-MO8t) [] 2017/12/16(土) 20:17:51.76:7KC6Lrbda VBAで書籍は金の無駄だよ 最初はマクロの記録を見るのとネットでぐぐれば大抵のことはできるよ : デフォルトの名無しさん (ササクッテロロ Spc7-sxUW) [sage] 2017/12/16(土) 20:36:50.77:IU5B3eEvp データの入力規則にカンマ区切りの項数不定の1-9の数字のみを許容したいのですが、どうすればよいですか? 正規表現だと、こんな感じです。 /^([1-9]+,)*([1-9]+)$/ regexp使ってVBAでチェックする方法ならやり方が分かるのですが、セルのデータ入力規則で設定する方法が分かりません。 : デフォルトの名無しさん (ワッチョイ 1e9f-iA8U) [sage] 2017/12/16(土) 20:57:31.30:yaHEvAoH0 シートのChangeイベントあたりに そのコードを仕込んでおくのはいかがでしょうか ダメな場合はエラーメッセージ出して、セルの値を消しちゃえば 入力規則チックになるかと : デフォルトの名無しさん (ワッチョイ 1e9f-iA8U) [sage] 2017/12/16(土) 21:10:04.55:yaHEvAoH0 本格的にやりたいなら、VBAと関係ないように思えるけど 「スッキリわかるJava」シリーズをオススメしたい。 自分の場合、VBA本ではさっぱりだったけど、この本で目覚めた。 オブジェクト指向の解説は、VBAの理解にもかなり役立つ。 プログラミング言語は根幹は同じで、方言みたいなもんなので 他の言語にもすんなり入っていけるようになる。 やれることが多くなるよ。 : デフォルトの名無しさん (ササクッテロレ Spc7-8sno) [] 2017/12/16(土) 21:57:56.42:0LU2hdfpp オブジェクト指向をVBA始めて1週間だが理解してみた まず 変数は何かの型に入れる お前はこれしかできねえよ っていう そして その型の中のさらに型の中の命令はなに? と掘り下げて行く これがオブジェクト指向 : デフォルトの名無しさん (スッップ Sd32-GTd9) [] 2017/12/16(土) 22:19:01.15:vwwP6eCQd 違うけど気にしないでいいよ 厳密なな定義ないから : デフォルトの名無しさん (ワッチョイ 5303-6+fO) [] 2017/12/16(土) 22:21:35.33:6cm/hyEb0 あと一歩というところだな、実にオシイと言っておこう しかし始めて1週間でそこまでオブジェクト指向の真髄に迫るとは大したものだ 末恐ろしい奴が現れたもんだ、これは俺もうかうかして居られんな : デフォルトの名無しさん (スッップ Sd32-GTd9) [] 2017/12/16(土) 22:26:05.73:vwwP6eCQd なるほど 俺が間違っていたようだ : デフォルトの名無しさん (ワッチョイ 339f-MO8t) [] 2017/12/16(土) 23:09:21.00:9T+lJsLD0 お、おぅ : デフォルトの名無しさん (ワッチョイ 5e8a-qk9N) [sage] 2017/12/16(土) 23:16:38.47:jWdcz3p90 Access だと、ずいぶん前から SendKeys は使うな ってのが喧しいが Excel だと現役なんか? いいんか? : デフォルトの名無しさん (ワッチョイ cbaa-4pIx) [sage] 2017/12/16(土) 23:32:07.04:oxEVVuR00 (その5) 画像リンクが外部ファイルにある場合はSendKeysも役にたたないようです。 なんかいい回避策ないですかね? : デフォルトの名無しさん (ワッチョイ de9d-RjCm) [sage] 2017/12/17(日) 01:01:58.50:ZCl426tV0 たんにActiveCellのシートが思ってるものじゃないだけの気がするなぁ そのコードどこに書いてるんだよ : デフォルトの名無しさん (ワッチョイ 772b-Vy73) [sage] 2017/12/17(日) 01:39:41.36:F05u2uwp0 誰がオブジェクト恥垢やねん!(´・ω・`)b : デフォルトの名無しさん (ワッチョイ 1693-qk9N) [sage] 2017/12/17(日) 04:46:14.88:Hjh32hjm0 どゆこと? 例えばですね、他Bookにある画像をクリックしてそこにPopupが表示され、フィルタ処理を選びます。 で、フォーカスは対象テーブルのあるブック・シートに遷移して、フィルタリングに成功します。 SDIなので画面上は呼出元ブックとテーブル用ブックが2つ並んでおります。 ここでScriptは完了するわけですが、追加の操作をするために、遷移先シートを明示的に選択。 明らかに自分はその目的のシートを選んでいます。 ここでImmediateから、ActiveCell.Address(external:=True)をたたくと明らかに今触っているセルの番地が、Book名、シート名、セル番地名のフルパスで戻ります。 ここでカレントセルのある範囲を選択反転してCopy操作を行うと、呼出元ブックの同じセル番地がコピーモードの破線矩形にかわるんです。 カーソルで下へスクロールすると、呼出元シートもリモコンで操作しているみたいに一緒にスクロールするんです。 削除操作も、、、、同一ファイルで操作している時は気づかなかったですが、別ファイルから行うと凄いびっくりなビジュアルが展開されます。 明らかに "ActiveCell" という状況が表と裏に分離されたような状態になるんです。 同じブックをWin7+Excel2010で操作した場合は起きません。 自ファイルだとSendKeysで逃げられるんですが、外部ファイルからシート切替しても呼出元が切り替わってしまって、、 テーブル側ブックがキー操作相当でシート切替されないとこの状態が解除されないみたいです。 : デフォルトの名無しさん (ワッチョイ 16b9-4pIx) [sage] 2017/12/17(日) 05:09:02.50:/bdPdb8E0 とりあえずActiveSheetとかSelectionとか使わない方法で実装するのはダメなの? あと同時に実行されるマクロは全て同じブックに入れておくべきだと思うよ。 : デフォルトの名無しさん (ワッチョイ 1693-qk9N) [sage] 2017/12/17(日) 06:51:48.24:Hjh32hjm0 (その6) Debug用と問題回避のためにActiveCellを記述していますが、実際のコードでは使用していません。 のSelectionはコードの中に記述しているわけではなく、検証用の画像ボタンを登録する手順としてImmediateから実行しているだけです。極力BackEndから操作する派です。 実際の運用Bookでは極力同一ファイルにMacroを集めています。 Macro自体は仕事を完全に全うするのですが、、、そのあとシートの状態がおかしくなるという現象です。 状態を解消するには、呼出先のBookでシート切替を行う方法のみ。 で、発想を変えて、「外部から制御できないか」と考えました。 VBE内にVBSScriptを記述し、「中の外」からシート選択してみようと。 結果NG、再現してしまいました。 じゃあ、本当に外から制御すればどうかな?と思い、上記のVBScriptを同一フォルダに置いて呼び出す作戦に。 : デフォルトの名無しさん (ワッチョイ 1693-qk9N) [sage] 2017/12/17(日) 06:52:33.95:Hjh32hjm0 (その7) -------------------------------- [Popupから呼び出すProc] Sub DoFilter() Sheets("List").Select Sheets("List").Range("$A$1:$C$5").AutoFilter Field:=1, Criteria1:="TEST" Call = Shell("wscript " & ThisWorkbook.Path & "\SelectSheet.vbs", vbHide) End Sub -------------------------------- [SelectSheet.vbsの中身] call SheetSelect_fromVBS Sub SheetSelect_fromVBS() Dim xlApp: Set xlApp = GetObject(, "Excel.Application") With xlApp .Workbooks("ListBook.xlsm").Activate .Worksheets("List").Select End With Set xlApp = Nothing End Sub -------------------------------- なんとこれが功を奏し、ActiveSheetの幽体離脱状態から抜け出すことができました。 シート切替も不要に。これで一先ず凌げそうですが、MSには不具合対応してもらいたいです。 コメントいただいた方々、ありがとうございました。 : デフォルトの名無しさん (ワッチョイ 1693-qk9N) [sage] 2017/12/17(日) 06:55:18.78:Hjh32hjm0 あれ、一部書き間違えました。実際は、、 Call Shell("wscript " & ThisWorkbook.Path & "\SelectSheet.vbs", vbHide) : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/17(日) 10:32:12.89:e1NNF66l0 つまりここでは なんの型にはめるのか? 命令は?状態は? だろ? でもCellsってプロパティだろ?なんで一発で状態から入るんだ? : デフォルトの名無しさん (ワッチョイ ef65-qk9N) [sage] 2017/12/17(日) 11:20:01.90:ZjZyIyTi0 Cellsはオブジェクトだ そしてWorksheetオブジェクトやCellsオブジェクトのプロパティでもある あと、ようやく時間ができたからWorkbookオブジェクトをVariantに代入しようとしたら当然のごとく「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」になった。 一体何を試してパスが云々なんて話が出てきたんだろう。 Dim V As Variant V = Workbooks(1) →代入不可 Set V = Workbooks(1) →VはVariant/Object/ThisWorkbook型 調べてみてもWorkbook型にデフォルトプロパティは設定してなさそう。 : デフォルトの名無しさん (ワッチョイ ef65-qk9N) [sage] 2017/12/17(日) 11:21:03.68:ZjZyIyTi0 訂正 CellsはRangeオブジェクトだ そしてWorksheetオブジェクトやRangeオブジェクトのCellsプロパティでもある : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/17(日) 11:26:43.28:e1NNF66l0 cellsはrange? 意味わからない プロパティでオブジェクトってなに? もっとうまく説明してくんね? : デフォルトの名無しさん (ワッチョイ b7a5-nSRQ) [sage] 2017/12/17(日) 11:27:13.71:gZkjaYao0 自分用語を使うどころかコードも正確にコピペできてないからそのまま実行しても無駄だぞ エスパー力を全力で働かせて察してあげない限り回答しても罵倒が返ってくる : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/17(日) 11:37:53.28:ZJu/+/V0x メゾット君、プロパティだから状態というのは間違えやすい考え方だからこの際捨て去った方が良い プロパティは呼び出し元プログラムに対してオブジェクトのクラス内部への変数へのアクセスを提供するもので、アクセス先の変数のデータ型はプリミティブな値であることもあれば、何らかのオブジェクトである場合もある というか、オブジェクト式の途中で出てくるプロパティは全てオブジェクトへの参照を提供するプロパティだ Cellsの場合はRange型のオブジェクトへのアクセスを提供するプロパティだが、Grobalのメンバプロパティだから上位オブジェクト式を省略して書けるわけ : デフォルトの名無しさん (ササクッテロ Spc7-8sno) [] 2017/12/17(日) 11:46:44.41:gC8RO3PCp カタカタ使うな : デフォルトの名無しさん (ワッチョイ ef65-qk9N) [sage] 2017/12/17(日) 11:53:12.87:ZjZyIyTi0 そうだよな・・ 自分でクラス作ってみれば一発で理解できそうなものだが・・ : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/17(日) 11:59:28.64:R4ec2g2Bx あの質問者が自分でクラスを作れるようになるのって何年か先の話だろうな : デフォルトの名無しさん (ササクッテロ Spc7-8sno) [] 2017/12/17(日) 12:11:00.98:gC8RO3PCp クラス? オブジェクトに必要な要素を全部埋め込むやつだろ? もうできるよ? でもnewクラスの使い方が意味がわからない 同じクラスで(中身も同じ)なら作る意味ないんじゃねえの? : デフォルトの名無しさん (ワッチョイ ef65-qk9N) [sage] 2017/12/17(日) 12:19:09.45:ZjZyIyTi0 確かにこれでは何年も先の話になりそうだ : デフォルトの名無しさん (ササクッテロ Spc7-8sno) [] 2017/12/17(日) 12:31:47.04:gC8RO3PCp いま、クラスをみてみた そしたらworkbookの中にworksheetsがプロパティとしていた どういうことだ? 俺はVBAの盲点をついたか? : デフォルトの名無しさん (ササクッテロ Spc7-8sno) [] 2017/12/17(日) 12:40:07.47:gC8RO3PCp 知りすぎたか? : デフォルトの名無しさん (ササクッテロ Spc7-8sno) [] 2017/12/17(日) 12:51:28.57:gC8RO3PCp dim i as long For i = 2 To i.Cells(.Rows.Count, 1).End(xlUp).Row このi.cellsの意味がわからない 教えてくれ : デフォルトの名無しさん (スプッッ Sd52-GTd9) [] 2017/12/17(日) 13:07:40.63:+CY9tzJPd プロパティは内部変数へのアクセスに限らずいろんなこと出来るし、最初さっぱり理解できなかった。 まさかただのシンタックスシュガーだなんて想像してなかったからな。 : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/17(日) 13:23:13.67:R4ec2g2Bx このコードは絶対にコンパイル通らないぞ For i = 2 To i.Cells(.Rows.Count, 1).End(xlUp).Rowの意味なんてこっちが知りたいくらいだ : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/17(日) 13:26:02.12:R4ec2g2Bx Worksheetオブジェクトのメンバの、Worksheetsコレクションにアクセスするプロパティじゃん 何が不思議なの? : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/17(日) 13:27:44.67:R4ec2g2Bx New出来てないの笑える クラスモジュールを挿入できただけでクラス使えるようになってねぇじゃん : デフォルトの名無しさん (ワッチョイ ff73-LxOA) [sage] 2017/12/17(日) 13:51:38.17:5yg/jtY20 おそらく本職プログラマじゃなく事務の効率化でVBAに手出したんでしょ? どうせ片手間ならプログラミング適性無さそうだからおとなしくコピペで済ますのが無難だと思う たぶん永久に理解出来ないよ : デフォルトの名無しさん (ササクッテロ Spc7-8sno) [] 2017/12/17(日) 14:08:08.04:gC8RO3PCp 正しいのはなに? ttps://i.imgur.com/rE2ZahI.jpg : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/17(日) 14:15:19.48:R4ec2g2Bx 自分で考えろよ、クラス作れるんだろ?w : デフォルトの名無しさん (ワッチョイ 12b3-iA8U) [sage] 2017/12/17(日) 14:17:42.01:KxwCW4kM0 最近オブジェクト指向の本読んでみたんだけど これまで作ってきた稚拙なスパゲティコードをこの際書き直してみたくなった : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/17(日) 14:25:27.85:R4ec2g2Bx この人謙虚じゃないし、まぁ無理だろうな 素直に他人の文章やコードが読めず、自分の言語感覚だけで無理矢理白黒つけようとするだけの奴はそもそもプログラミングに向いてない : 名無し (ワッチョイ ef65-cZUN) [sage] 2017/12/17(日) 19:27:22.86:ZjZyIyTi0 今書き直しても、しばらくするとまた見識が増えて書き直したくなるだけやで : デフォルトの名無しさん (ワッチョイ 5303-6+fO) [] 2017/12/17(日) 19:31:24.74:SRQ89yzu0 やめとき、もう一つ稚拙なスパゲティコードを作るだけやでw 魔道に堕ちた亡者どもはそれをリファクタリングと呼んでるらしいがなw : デフォルトの名無しさん (ワッチョイ 16b9-4pIx) [sage] 2017/12/17(日) 19:52:14.28:/bdPdb8E0 メゾット君はの自演の通り、「○○が出来るなんて凄いヤツだ」って反応が欲しいだけでしょ。 その反応が欲しいだけだから本腰入れて勉強するつもりもないんだろうし、 彼の想像の中では、自分は「凄いヤツ」であり、それに反応する周囲は「凄くないヤツ」なので見下している。 見下している奴らと自分の意見がぶつかったら自分の方が凄いので自分が正しい。だから自分の考えに固執する。 要するにヒカルの碁とかハイキューとかボールルームとかの主人公みたいな展開を妄想してんだろ。 どんな反応をしても彼の妄想に付き合わされるだけだし、妄想が維持できなくなると死ね死ね言うだけになるから構うだけ無駄。 : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/17(日) 20:35:35.89:oSmkXHksa プログラミングだけじゃなくありとあらゆることに向いてないだろうな わからんのは仕方ないけど、最低限の態度がなってない ネットだからなにやってもいい、って考えのやつはいずれリアルでもぼろが出るわ : デフォルトの名無しさん (ワッチョイ 12b3-iA8U) [sage] 2017/12/18(月) 00:39:13.70:mfb75Iey0 プロシージャにconstでいくつか定義してあってこれまで何も問題なく動いてきた さっきその定数の一つを=22から=23に変更したら 定数式が必要です、のエラーが出る どうみても何も問題ないようにみえて分からない まさかと思いつつ 'Const sht_right As Integer = 23 Const sht_right As Integer = 23 このように問題の起きた行をコメント行として すぐ下に書き直したらエラーがでなくなった こういうのってあるもん? : デフォルトの名無しさん (ワッチョイ 92e3-AMYv) [sage] 2017/12/18(月) 02:00:09.91:rupxZ3Ov0 上の奴、本来のコードだと全角スペース入ってなくね : デフォルトの名無しさん (ワッチョイ d223-AMYv) [] 2017/12/18(月) 02:32:05.22:m7yapXyd0 i.cells じゃなくて ws.cells さらに、with ws が有るので ws が省略できるから .cells で良い : デフォルトの名無しさん (ワッチョイ ebf7-kJ08) [sage] 2017/12/18(月) 03:17:17.83:7TDAIkSx0 99%は単なるタイプミス 等幅フォントでスペースが明示できるテキストエディタにコピペしてみる : デフォルトの名無しさん (ワッチョイ 1680-zkGJ) [sage] 2017/12/18(月) 06:23:46.35:TbHEuMcS0 どこかから、コピペした文字列に、見えない制御文字が入っているとか? : 名無し (ワンミングク MM42-cZUN) [sage] 2017/12/18(月) 07:46:18.89:fX+okHt3M その事例は見たことないけど、納得のいかないエラーが出たときは、とりあえずエクセル再起動 : デフォルトの名無しさん (ワッチョイ 12b3-iA8U) [sage] 2017/12/18(月) 07:59:26.09:mfb75Iey0 と俺も思った んで何度も打ち直してみた ちなみに上に貼ったのはそのままコピペしたもの 2を3にしただけなんでね、よくわからん 再起動しなかったかもしれないんでまた起きたらやってみるわ コメント行にしたもともとの行は削除しちゃったんで実験できなくてすまん : デフォルトの名無しさん (ワッチョイ 16b9-4pIx) [sage] 2017/12/18(月) 08:01:30.70:aXpCltYZ0 Constでエラー出した事あったけど、Endを実行してからやったら治ったことあるな。 値が記録されたままだったとかじゃね。 : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/18(月) 10:33:59.62:ueSdYdZDa なんか、Enumでもそんなことがたまに起こるよ VBEのバグらしいけど : デフォルトの名無しさん (ササクッテロレ Spc7-8sno) [] 2017/12/18(月) 13:34:10.63:NqlVCppnp VBAってどうやったら上達しますか? エクセル関数は達人級です エクセル関数みたいに慣れだけじゃ無理ですかね : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/18(月) 13:43:31.23:IKrWJ0B8a Javaを勉強したらvbaも上達するよ : デフォルトの名無しさん (ササクッテロレ Spc7-8sno) [] 2017/12/18(月) 13:47:42.85:NqlVCppnp JAVA押しさんこんにちわ : デフォルトの名無しさん (オイコラミネオ MM6e-3jz0) [sage] 2017/12/18(月) 14:03:31.64:yddZnfruM Java推しはともかく他の言語を学ぶのはVBAの上達にも実際かなり役立つ : デフォルトの名無しさん (ササクッテロレ Spc7-LxOA) [sage] 2017/12/18(月) 14:45:58.67:c1zJrPAZp (またメゾットくんだよ…) : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/18(月) 16:14:09.20:D45Nh6pha ジャワティーの話しはしてないんだ、ごめんな : デフォルトの名無しさん (ササクッテロレ Spc7-8sno) [] 2017/12/18(月) 16:30:46.07:NqlVCppnp VBAだけやればいい javaは環境が大変だ したいこともないし : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/18(月) 16:48:04.05:D45Nh6pha プログラムの上達に早道はないんだよなあ というか、遠回りに思えることが早道だったりする と、自戒の意を込めて どうしてもエクセルと絡めたいならC♯でもいいけどな : デフォルトの名無しさん (スプッッ Sd52-GTd9) [] 2017/12/18(月) 16:49:17.57:7XOqOvzzd 今のうちにPythonを学ぶ ttp://www.publickey1.jp/blog/17/excelpython.html : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/18(月) 17:57:32.74:pW3jV0rpa ぱいそんってアメリカではもっともメジャーなスクリプト言語なんだっけ : デフォルトの名無しさん (ワンミングク MM42-cZUN) [sage] 2017/12/18(月) 18:15:03.66:fX+okHt3M 何故にPythonかと思ったらエクセルにPython組み込むって話が出てるんだな。勉強するか‥ : デフォルトの名無しさん (ワッチョイ 5303-6+fO) [] 2017/12/18(月) 19:14:05.94:/veb4c2e0 自己評価だとそう感じるのかもしれないけど できる奴は最初からできるし、できない奴はいつまでたってもできない プログラムってそういうもん : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/18(月) 19:34:37.55:pW3jV0rpa そりゃあ人によっちゃ違うが、それは才能があるからで近道しようとしてそうなってる訳じゃないだろ わかんないことがあったら別の切り口から攻めると言うのもありじゃないの : デフォルトの名無しさん (ワッチョイ 1e9f-YBwc) [sage] 2017/12/18(月) 19:45:01.61:au4G9Tq20 VBAerさんついに終わるのか Pythonに駆逐されちゃうね : デフォルトの名無しさん (ワッチョイ 5303-6+fO) [] 2017/12/18(月) 19:45:05.21:/veb4c2e0 ないとは言ってないよ 俺が言いたいのは、別の切り口から攻めようが近道しようが 既知の問題の解決策は知識として身につくが 未知の問題に対する解決能力は上げることができないって事 つまり上達とか意識しないで楽なやり方ばかり選ぶ奴がいつだって一番賢い : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/18(月) 19:51:30.63:pW3jV0rpa 天才の人は苦にしないだけでちゃんと道は通ってるよ : デフォルトの名無しさん (ワッチョイ 5303-6+fO) [] 2017/12/18(月) 19:54:37.06:/veb4c2e0 何を言いたいのかよくわからんがそもそも俺が言ってるのは天才のことじゃない 単にプログラムができる奴とできない奴の話なんだが : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/18(月) 19:57:32.60:pW3jV0rpa iqないとダメなのはプログラムに限らんし まあスレチだから退散するわ : デフォルトの名無しさん (ワッチョイ 5303-6+fO) [] 2017/12/18(月) 20:01:42.20:/veb4c2e0 いやだからIQとかの話じゃないってば 目の前の問題をありのままに受け入れる事ができる奴と 既に自分の中に構築された知識に当てはめないと解釈できない奴の違いだって : デフォルトの名無しさん (ワッチョイ 16b9-4pIx) [sage] 2017/12/18(月) 23:11:06.58:aXpCltYZ0 仮に採用されて皆がPython触るようになったら、今度はPython(笑)って扱いされる未来が見えるわ。 格好つけだけでやってる奴らが抜けて、AIとか作ってる真っ当なのが風評被害を受けそう。 言語は統一するよりも、それを扱うユーザー層毎に分けた方がいい。 : デフォルトの名無しさん (アウアウカー Sa6f-tkV0) [sage] 2017/12/19(火) 12:28:53.96:/mb664F4a 俺も似たようなの見たことがある。 でも引きずるような問題じゃ無かったと思う。 Excel再起動かPC再起動で直るんじゃね? : デフォルトの名無しさん (アウアウカー Sa6f-tkV0) [sage] 2017/12/19(火) 12:37:10.24:pfZPHd/La 逆だと思うが。 未知の問題に対しての解決能力は上げることができる。 楽なやり方を選ぶ奴は上げられないだけ。 厳密には未知な問題といっても既知の問題と全く違うわけじゃない。 : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/19(火) 16:48:29.82:mNLh8c+i0 ここのやつらがあんまジャバジャバいうから引っ張り出して着たわ とりあえずコードは実行せずにパラ読みしようと思う ttps://i.imgur.com/peDAurF.jpg : デフォルトの名無しさん (ワッチョイ 16b9-4pIx) [sage] 2017/12/19(火) 17:01:17.86:Bngslooy0 「わー、ロレックス持ってるなんてすごーい!」 「え?こんなの普通だよ。持ってないとかwww」 みたいな展開になる事を期待してるんだろうけど腕時計の入れ方が無理やり過ぎて笑いしか出てこないw 本は中古屋で買ったみたいだし、あまりにもちぐはぐ過ぎてむしろ格を下げてるようにしか見えないんだが。 : デフォルトの名無しさん (ワッチョイ 5303-6+fO) [] 2017/12/19(火) 18:14:51.58:J+VWEpvK0 うんだから最初に言ったんだけど自己評価だとそう感じるんだってば : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/19(火) 19:02:39.42:mNLh8c+i0 JAVAの本でわかったこと 変数の宣言と同時に値を入れることを初期化という 変数の値が変わらないことを定数という いま10ページ目だけどこんくらいだわ : デフォルトの名無しさん (ワッチョイ 12e7-X0LG) [sage] 2017/12/19(火) 19:57:29.94:9tP52mqX0 >変数の値が変わらないことを定数という これはちょっと違うのでは? : デフォルトの名無しさん (アウアウカー Sa6f-tkV0) [sage] 2017/12/19(火) 20:25:43.13:fLKwjLgZa お前の自己評価がそう感じてるだけだろw 何か自分はプログラム書ける気になってるようだけどw : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/19(火) 21:14:28.27:4AWSTK/ra 変数の初期かもなんかむずむずする理解だな : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/19(火) 21:15:04.92:4AWSTK/ra あ、でも彼はジャワティーの話をしてるのか ならわからんでもない : デフォルトの名無しさん (ワッチョイ d2af-iA8U) [] 2017/12/19(火) 21:26:16.08:mNLh8c+i0 javaのパスが通らなくて実行できない 助けてくれ : デフォルトの名無しさん (ワッチョイ 1680-zkGJ) [sage] 2017/12/19(火) 23:45:33.30:jfHXMkXp0 Java は環境構築が難しいから、初心者には無理 paiza.IO, codepad などのサイトで、ブラウザから実行しろ : デフォルトの名無しさん (ワッチョイ de9f-SC1D) [sage] 2017/12/20(水) 00:20:41.41:USwfdD4Y0 別にJavaが難しいと感じたことはないな。 すっげえ昔にかじっただけだから今となっては初心者以下だけど。 いや、当時も初心者だったけど。 : デフォルトの名無しさん (ワッチョイ de9f-SC1D) [sage] 2017/12/20(水) 00:28:51.85:USwfdD4Y0 コンパイラもJavaで出来てるからJava実行環境でコンパイラ動かして、そのコンパイラへの引数にエディタで編集中のテキストを一時ファイルにしたものを渡してたな。 そのエディタもJavaで誰かが作ったものを機能拡張したやつだったな。 : デフォルトの名無しさん (アウアウカー Sa6f-MO8t) [] 2017/12/20(水) 00:40:50.45:xfg3gakwa コマンドラインが敷居高いならeclipseでやれ 敷居高いつっても環境変数設定してそこにパス通すだけだがな : デフォルトの名無しさん (ワッチョイ d2af-8sno) [] 2017/12/20(水) 01:00:50.98:sohN4awK0 javaって効率悪すぎだろ テキストエディタで編集 ↓ 名前つけて保存 ↓ コマンドプロンプトでコード入力 ↓ 実行 どんだけ時間かかるんだよ : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/20(水) 08:24:00.28:TZHE5kKsa いやeclipse使えよ : デフォルトの名無しさん (ササクッテロレ Spc7-LxOA) [sage] 2017/12/20(水) 09:28:33.38:FRuTBLwYp これ以上はスレ違いなのでJavaスレでどうぞ : デフォルトの名無しさん (アークセー Sxc7-Zhdx) [sage] 2017/12/20(水) 09:36:49.97:GPFg9WZwx eclipseも知らないで手動でコンパイルしながらブチキレてるの想像してワロタ 道は遠いね : デフォルトの名無しさん (スッップ Sd32-T3BS) [sage] 2017/12/20(水) 12:25:53.38:Vi8ViNgtd スレチ : デフォルトの名無しさん (アウアウカー Sa6f-QofM) [sage] 2017/12/20(水) 12:41:32.07:/dU/ndoRa お前ら良かったな EXCELでPythonが使えるようになるかも知れないんだって? あれはObject指向の流れを組む関数型を目指しているところの言語っていうからやりがいはあるよね 俺もVB.NetやC#はやったけど EXCELに載ることが確定したらこれからPython覚えるわ まぁ構造化言語からObject指向型言語に移行したとき めちゃくちゃ苦労したけど 今回も苦労するんだろうなぁ : デフォルトの名無しさん (アウアウイー Sa07-nYOw) [sage] 2017/12/20(水) 13:38:58.93:/fbzm/vOa Pythonはさらっと概要見たぐらいだけど面白そうだね まあexcelにのらなくても勉強して損にはならんだろうな : デフォルトの名無しさん (ワッチョイ 5303-6+fO) [] 2017/12/20(水) 15:31:22.90:EAMpcVD20 必要ないもん勉強したって時間のムダだっつーの 真のエクセルマクラーだったらマクロ書くのにパイソンしか使えなくなった時に必死でググれ : デフォルトの名無しさん (スップ Sd32-GTd9) [] 2017/12/20(水) 16:07:26.91:/h7jUJynd 今のままでも関数型で出来るらしいが ttps://qiita.com/matumoto_onga/items/7adfd4cf48288c477901 : デフォルトの名無しさん (ワッチョイ f28a-mLIQ) [sage] 2017/12/20(水) 18:29:06.12:khkAeR460 Pythonはオブジェクト指向も関数型も全部後付けって感じでイケてねえ F#にしとけって でもこんなのはプログラマ以外が触るものだからしょうがないのかもな : デフォルトの名無しさん (アウアウカー Sa6f-QofM) [sage] 2017/12/20(水) 19:00:00.85:sxNo8wqUa F#ってまだ生きてんのか! : デフォルトの名無しさん (スプッッ Sd52-GTd9) [] 2017/12/20(水) 19:51:25.83:7WhairgWd 生きてるし、活発に使われてるよ ソースはない : デフォルトの名無しさん (ワッチョイ 5303-FS+0) [sage] 2017/12/20(水) 20:52:44.38:EAMpcVD20 ソースはないソースはよ : デフォルトの名無しさん (アウーイモ MM67-rH/H) [] 2017/12/21(木) 23:06:47.24:1PuX0k7mM 100列ぐらい続く計算エクセルがある 足したり引いたりするだけのエクセル。 酷くね?VBAにできないものか : デフォルトの名無しさん (アークセー Sx87-/hyL) [sage] 2017/12/22(金) 02:00:09.18:T3zOnX2zx 計算エクセルっていう表現が意味不明だが要は計算用のワークシートのことか? 大抵の場合、ワークシート関数とテーブル機能を組み合わせて何とかする方がVBA使うより楽だぞ 車輪の再発明をしてもしょうがないからな : デフォルトの名無しさん (ワッチョイ cf93-RBuR) [sage] 2017/12/22(金) 04:21:53.41:0EXQoFbJ0 質問です。 Excel側からVBE上の指定のプロシージャ記述欄にジャンプする動作をVBAで記述できる でしょうか? やり方がわからずとりあえずSendKeysを組み合わせて動作するようになったのですが 不慮の事故が起きそうで怖いです。 VBEのオブジェクトモデルに沿ったアクセス方法があれば教えていただけないでしょうか。 : デフォルトの名無しさん (スプッッ Sd1f-Eeo6) [] 2017/12/22(金) 07:49:35.63:BCzwPGy5d VBE上でカーソルの位置をコントロールするってこと? : デフォルトの名無しさん (ワッチョイ 13aa-bqMz) [sage] 2017/12/22(金) 11:50:10.85:7Q1lZFEo0 メンテのためにActiveBookから全Procのリストを新規Sheetに出力する Procedureを用意したのですが、Proc名からVBE上の該当Procにジャンプ したく、右ClickEventにジャンプ機能を割り当てました。 正しいアクセス方法がわからないので、ほぼSendKesyのみで記述している のですが、状況により意図しない挙動をします。 VBEを開く動作は "^{F11}"の代わりに Application.CommandBars.FindControl(ID:=1695).Execute が使えそうなことはわかったのですが、、、 VBE上で1つもModuleが開かれていなかったり、開かれているModuleと、ツリー 側の選択されているModuleが異なったりすると、"^F"が効かないようです。 FrontEndからではなく、ObjectModelに沿ったBackEndからの操作が 知りたいのですが、うまく情報を見つけられないところです。 : デフォルトの名無しさん (ワッチョイ 13aa-bqMz) [sage] 2017/12/22(金) 12:58:52.19:7Q1lZFEo0 自己解決しました。 キーワードを英語に切り替えてGGったら、StackOverFlowですぐ見つかりました。 .CodePane.GetSelection .CodePane.SetSelection あたりでなんとかなりそうです。お騒がせしました。 : デフォルトの名無しさん (アウアウイー Sa87-cQ+C) [sage] 2017/12/22(金) 17:40:48.08:3J82DkVga VBAやりはじめて三年ぐらいだけど、For Eachで普通の配列もループできるの今日知ったわ コレクションだけだと思ってた : デフォルトの名無しさん (スップ Sd1f-Eeo6) [] 2017/12/22(金) 18:05:37.66:/KqbyaeQd 値の取得だけで設定はできないけどねー : デフォルトの名無しさん (アウアウイー Sa87-cQ+C) [sage] 2017/12/22(金) 18:16:05.21:3J82DkVga クラスの扱いが大分変わるのよ わざわざイテレータ自作してたわ : デフォルトの名無しさん (アウアウカー Sac7-92zu) [sage] 2017/12/23(土) 00:05:26.91:/nzAEvVba できるんだけどセキュリティ的に問題だからお勧めしない。 .netで書いた方が良いぞ。 でもVBEを操作するコードが書ければ、.net上でも殆ど同じコードでいけるから勉強しとくと良いかな。 : デフォルトの名無しさん (ワッチョイ ffb3-7LW1) [sage] 2017/12/23(土) 06:34:44.47:F3cHZlpp0 sheet1に置いたボタンを押してからsheet1内のセルをクリックすると、クリックしたセルに「ここ」 とはいるようにしたいです。実際作りたいものはもっと複雑ですが、とりあえず。 そこで、sheet1のシートモジュールに以下の記述をしました しかし、どうやら前回クリックしていた場所を覚えていて、その場所に「ここ」と入ってしまいます 解決法はありますか? Private Declare PtrSafe Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Integer Private Sub CommandButton1_Click() Do If GetAsyncKeyState(VK_LBUTTON) Then ActiveCell.Value = "ここ" Exit Do End If Loop End Sub : デフォルトの名無しさん (ワッチョイ ffb3-7LW1) [sage] 2017/12/23(土) 06:43:21.92:F3cHZlpp0 で書き忘れ 標準モジュールの宣言部に Public Const VK_LBUTTON = &H1 の記述もしてあります。 : デフォルトの名無しさん (ワッチョイ cfb9-bqMz) [sage] 2017/12/23(土) 07:46:11.28:8SavP0Th0 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 Then Target.Value = "ここ" End Sub クリックした場所に入れるだけならSheet1モジュールにこれで済むけど、コルーチン処理が必要というなら分からん。 いずれにしてもActiveCellとかActiveSheetとかは避けて設計すべき。 : デフォルトの名無しさん (ワッチョイ ffb3-7LW1) [sage] 2017/12/23(土) 07:56:20.90:F3cHZlpp0 自分もググってたどりついた先がそれだったんですよね でも常に発動してる状態だとやっぱり困るんですよ 一応application.enableevent を使って停止しておくこともできるようなので、 通常は停止しておくことも考えてはいます 設置したボタンを押したときだけ機能するようにしておけばいいのかな、と。 Worksheet_SelectionChange使う以外方法がなければそうするしかないですが 無効にしてる間はイベントが一切反応しなくなるという事なので、 イベント付きの他のブックを併用するようなケース等で問題が起きそうで迷ってます : デフォルトの名無しさん (ワッチョイ cfb9-bqMz) [sage] 2017/12/23(土) 08:00:18.36:8SavP0Th0 なら If ToggleButton1.Value Then とか加えておけばいいだけでは? : デフォルトの名無しさん (ワッチョイ ffb3-7LW1) [sage] 2017/12/23(土) 08:11:12.55:F3cHZlpp0 お・・これはいけそうです こういう使い方があるんですね・・・ 作業を先に進められそうです ありがとうございました : デフォルトの名無しさん (ワッチョイ cffa-buzn) [sage] 2017/12/23(土) 10:35:36.95:oVsH3Gmz0 フォームコントロールボタンの文字の色を変えたいんだけど セレクトしない方法はないのですか? Sub test01() n = Worksheets("Sheet1").Shapes("Button 1").Name Worksheets("Sheet1").Shapes(n).Select Selection.Font.ColorIndex = 3 End Sub : デフォルトの名無しさん (ワッチョイ 73e3-chJT) [sage] 2017/12/23(土) 10:51:51.14:YCHexesv0 フォームコントロールボタンの文字の色を変えたいんだけど セレクトしない方法はないのですか? Set n = Worksheets("Sheet1").Shapes("Button 1") n.Font.ColorIndex = 3 みたいな? : デフォルトの名無しさん (アウアウイー Sa87-cQ+C) [sage] 2017/12/23(土) 13:25:10.14:Zcbsqwvta シート上のボタンならtoggleにしなくてもモジュールレベルのクリックフラグ変数で管理できねーか? : デフォルトの名無しさん (ワッチョイ cfb9-bqMz) [sage] 2017/12/23(土) 13:35:38.33:8SavP0Th0 出来合いのものを、わざわざ回避する利点は? : デフォルトの名無しさん (ワッチョイ c3b3-cQ+C) [sage] 2017/12/23(土) 15:32:28.22:tRk+L7lt0 いや、最初コマンドボタンだったからコマンドの方がいいのかなって思っただけ 別に必要無いなら必要無いでいいし : デフォルトの名無しさん (アウアウカー Sac7-92zu) [sage] 2017/12/23(土) 18:23:21.18:3q2JAS6ba 逆に何でセレクトしなきゃならんのかが分からん。 普通セレクトなんてしないだろ。 : デフォルトの名無しさん (アウアウカー Sac7-92zu) [sage] 2017/12/23(土) 18:24:04.16:3q2JAS6ba すまん。 向けね。 : デフォルトの名無しさん (ワッチョイ 6f9f-7LW1) [sage] 2017/12/23(土) 19:38:10.94:DrTFst260 Worksheets("Sheet1").Shapes("Button 1").TextFrame.Characters.Font.Color = vbRed または Worksheets("Sheet1").Buttons("Button 1").Font.Color = vbRed SelectするとButtons("Button 1")をオブジェクトとしてSelectionに持つので Selection.Font.Color = vbRed でいける 一方、ShapesはFontオブジェクトをもっていないので Fontオブジェクトを持っているヤツまで掘り下げてかなければダメ ということだと思う。 : デフォルトの名無しさん (アークセー Sx87-/hyL) [sage] 2017/12/23(土) 19:53:54.32:AF0984djx 直感的な説明だが、オブジェクトがオブジェクトを持つという表現は間違い オブジェクトが持つのはあくまでメソッドとプロパティからなるメンバで、いわゆる下位オブジェクトにはメンバを介してアクセスしてるだけだからな : デフォルトの名無しさん (ワッチョイ cffa-buzn) [sage] 2017/12/23(土) 20:15:31.85:oVsH3Gmz0 マクロの記録でやってたので。1行で可能なのですね。 TextFrame.Characters.Font.Colorでググったら出てきました。 ありがとうございました。 : デフォルトの名無しさん (ワッチョイ 6f9d-FmKA) [sage] 2017/12/23(土) 20:55:59.08:afY4COyy0 ちなみにButtonsとかCheckBoxesとかは隠しプロパティ ヘルプにもでてこないからな なんで隠してあるのかねぇ : デフォルトの名無しさん (アウアウカー Sac7-92zu) [sage] 2017/12/24(日) 00:26:44.47:oSJcOqyea 分かるよ。 そういう人がとても多いから。 でも、殆どの処理はセレクト無しで書ける。 個人的にはセレクト無しで書けない場合でも何とかセレクトせずに書けないかを考える。 : デフォルトの名無しさん (ワッチョイ 93f7-vrKU) [sage] 2017/12/24(日) 00:45:00.70:BN72T8jr0 まあ、大多数の用途では得られるメリットが少なすぎてSelectを消す意味は薄いけどな : デフォルトの名無しさん (アークセー Sx87-/hyL) [sage] 2017/12/24(日) 01:23:50.46:2PxYmIQzx オブジェクトのプロパティにアクセスする処理でSelectメソッドはなるべく使わない コードの実行中にデバッグ作業を行ったときなどに予期しないオブジェクトが選択されて、アクセスしたいプロパティにアクセス出来ずエラーになることがよくあるからね Rangeオブジェクトを指定していたはずがShapeオブジェクトやOLEObjectオブジェクトを選んでいたりとか : デフォルトの名無しさん (ワッチョイ cfb9-bqMz) [sage] 2017/12/24(日) 01:43:15.08:O2udkTbW0 Selectは必ず代替手段があるから、範囲選択してユーザーに注意を促すとかでなけりゃSelect使う事に疑問を持った方がいい。 : デフォルトの名無しさん (ワッチョイ 6fe0-615/) [sage] 2017/12/24(日) 06:22:03.30:ZKd7S1fn0 起動中のIEからさらに別窓で開かれるフォーム入力用窓のIEオブジェクトを取得して操作したいと考えているのですが、 Function hoge() As WebBrowser Dim tmp As Variant For Each tmp In CreateObject("Shell.Application").Windows If TypeName(tmp.document) = "HTMLDocument" Then Set hoge = tmp Exit Function End If Next tmp End Function のようにShellを使ってもIEオブジェクトを取得できなくて困っています Set objIE = MAGIC(hWnd) のような形で、ハンドルからIEオブジェクトを取得する方法は無いでしょうか 他に方法があれば、ハンドルから取得する方法にこだわりません ただし、諸事情により外部からライブラリをダウンロードしてきて使用する、といったことはできないです : デフォルトの名無しさん (ワッチョイ 93f7-vrKU) [sage] 2017/12/24(日) 08:15:14.57:BN72T8jr0 別窓かどうかの判定が抜けてる LocationNameとかLocationURLあたりを調べないと : デフォルトの名無しさん (ワッチョイ 6f9f-WV/z) [sage] 2017/12/24(日) 11:59:50.98:uwQxUsVy0 IEが複数あるかもしれないのに見つかったら抜けちゃうコードで何かおかしいと感じないの? : デフォルトの名無しさん (ワッチョイ ff8a-EmoC) [] 2017/12/24(日) 15:06:20.77:6Phr71Y20 Dim u As Long Range("A1", "I5").Value = u u = Round(u, 4) 四捨五入したいのに全部ゼロになる! : デフォルトの名無しさん (アウアウイー Sa87-cQ+C) [sage] 2017/12/24(日) 15:18:15.83:CcW1Sn5Aa uには何が入るの? : デフォルトの名無しさん (アウアウイー Sa87-cQ+C) [sage] 2017/12/24(日) 15:18:38.84:CcW1Sn5Aa てか、そりゃゼロになるだろw : デフォルトの名無しさん (アウアウカー Sac7-92zu) [sage] 2017/12/24(日) 15:27:49.11:dho/ilxra 何かが逆でワロタ。 : デフォルトの名無しさん (ワッチョイ ff8a-EmoC) [] 2017/12/24(日) 15:36:05.76:6Phr71Y20 A1からI5のセルを桁指定したいんだ。 どうすればいいか教えてくれ : デフォルトの名無しさん (アウアウカー Sac7-92zu) [sage] 2017/12/24(日) 15:53:02.16:sjlc/tcta A1からI5の範囲に初期化したばかりのu(=0)を入れてる。 入れるのは逆で、入れた後で桁変更して戻す必要もある。 最初からuを使わずに自分自身に桁変更した自分を入れる方が普通かな。 そもそも見た目だけ桁指定する方が一般的だと思うが。 : デフォルトの名無しさん (アウアウイー Sa87-cQ+C) [sage] 2017/12/24(日) 15:54:56.74:CcW1Sn5Aa 桁指定したいならexcel vba 書式設定 でググりなさい : デフォルトの名無しさん (アウアウカー Sac7-92zu) [sage] 2017/12/24(日) 15:56:16.29:CBEBXlX2a というか、値が複数(配列)だから一発でいけないだろ。 : デフォルトの名無しさん (ワッチョイ 03d2-oA/d) [sage] 2017/12/24(日) 15:56:53.27:JTJf6bSC0 それぞれの行のB列からC列を引きたいのですが、下のコードだと すべてB2-C2となってしまいます。 どうすればよろしいかご教示ください。 Dim i As Long Dim Lrow As Long Lrow = Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To Lrow Cells(i, "D").Formula = "=B2-C2" Next : デフォルトの名無しさん (アークセー Sx87-/hyL) [sage] 2017/12/24(日) 16:09:57.86:U3mSSLWjx 数式書き込んでるループ内の処理の右辺を "=$B" & i & "-" & "$C" & i にするだけ 折角行インデックスをiで指定してループ回してるんだから使わないと この程度のことだったらVBA使わなくても組み込みのテーブル機能で実現できるけどね : デフォルトの名無しさん (ワッチョイ cfb9-bqMz) [sage] 2017/12/24(日) 16:11:04.02:O2udkTbW0 Sub foo() Cells(2, 4).Formula = "= B2 - C2" Cells(2, 4).Copy Lrow = Cells(Rows.Count, 1).End(xlUp).Row Range(Cells(2, 4), Cells(Lrow, 4)).PasteSpecial End Sub : デフォルトの名無しさん (ワッチョイ 03d2-oA/d) [sage] 2017/12/24(日) 16:13:21.90:JTJf6bSC0 >>711 ありがとうございました。 : デフォルトの名無しさん (ワッチョイ 6fe0-615/) [sage] 2017/12/24(日) 17:56:35.14:ZKd7S1fn0 コードはあくまでも例で、実際はURLや文書内の文字列から判定しています 今回問題なのは、CreateObject("Shell.Application").WindowsをFor Eachで全要素を調べても、要素にそもそも含まれていない点です IEの子窓として存在しており、タスクマネージャーで調べるとプロセスも存在するのに、IEオブジェクトを取得できません しかし、WindowsAPIのFindWindowを用いるとハンドルの取得は可能だったので、 Set objIE = MAGIC(hWnd)のような形でハンドルからIEオブジェクトを取得する関数を作れないか質問させていただきました : デフォルトの名無しさん (ワッチョイ ff23-9Igo) [sage] 2017/12/24(日) 19:48:46.67:TDjZS1ex0 Excel2010です 以下のコードを実行すると、"$A$2"が表示されます。 セル範囲に添字0を付けた場合、セル範囲の先頭セルが参照される (この場合B2)と思い込んでいたのですが、私の誤りでしょうか? MsgBox(worksheets(1).range("B2:C3")(0).address) : デフォルトの名無しさん (ワッチョイ 6fc5-buzn) [sage] 2017/12/24(日) 21:16:40.55:ODr8GH0o0 0 じゃなく 1 : デフォルトの名無しさん (ワッチョイ ff23-9Igo) [sage] 2017/12/24(日) 22:01:25.06:TDjZS1ex0 ありがとうございます OffSet()だと原点がゼロなので そういうのと混同していたかも知れません : デフォルトの名無しさん (ワッチョイ 03bd-EmoC) [sage] 2017/12/24(日) 22:44:17.96:4FfGU/eI0 Dim FSO As Object Set FSO = CreateObject("scripting.filesystemobject") Dim folder As Object Set folder = FSO.getfolder(ファイルパス) Dim f As Object For Each f In folder.Files If f.Name Like "*" & Month(Date) & "*" Then ’ここでファイル名を翌月に変えてコピーを作成したい End If Next ファイル名は「AAA〇〇月BBB」で統一(ABは文字列で〇〇は月を二桁表示) 抽出できた今月ファイルをコピーして名前の〇〇を翌月に変更したもの(翌月ファイル)を同フォルダ内に作成したいです コピー元ファイル名を継承して一部だけ変更する良い方法が見つからなかったので教えてください : デフォルトの名無しさん (アウアウカー Sac7-92zu) [sage] 2017/12/24(日) 23:29:24.13:XB6s5ekxa そのセル全部のRangeに対して"=B2-C2"でいける。 : デフォルトの名無しさん (ワッチョイ cfb9-bqMz) [sage] 2017/12/25(月) 00:16:31.32:2KDGjSox0 Sub foo(FolderPath As String) Dim FSO As New FileSystemObject Dim c As New Collection Dim Folder As Folder Dim File As File FindWord = "*" & Month(Date) & "*" Set Folder = FSO.GetFolder(FolderPath) For Each File In Folder.Files If File.Name Like FindWord Then Exit For Next If File Is Nothing Then Exit Sub s = Split(File.Path, "\") For i = LBound(s) To UBound(s) If s(i) Like FindWord Then e = Split(s(i), ".") s(i) = Month(DateAdd("m", 1, Date)) & s(1) End If FilePath = FilePath & s(i) If i < UBound(s) Then FilePath = FilePath & "\" Next FSO.CopyFile File.Path, FilePath End Sub 試してないけどこんな感じかなぁ。 : デフォルトの名無しさん (アウアウイー Sa87-cQ+C) [sage] 2017/12/25(月) 08:06:21.04:fMKsEfdQa fileName = Replace(fileName,○○,××) : デフォルトの名無しさん (アウアウイー Sa87-cQ+C) [sage] 2017/12/25(月) 08:07:54.57:fMKsEfdQa ああ、AAAとBBBに数字がない前提じゃないとダメだな : 717 (ブーイモ MMff-pp+B) [sage] 2017/12/25(月) 12:59:33.91:5/ecyLcnM >>720回答ありがとうございます まだ試せていませんが AAA○○月BBBじゃなくて AAABBB○○月にした場合もう少し簡単に記述出来ますかね? ちなみにABに数字は含まれてないです : デフォルトの名無しさん (ワッチョイ ff7f-SZyW) [] 2017/12/25(月) 16:18:43.87:dIh/hlW50 んんんんあああああああああああああああああああああああああああああああああ : デフォルトの名無しさん (アウアウイー Sa87-cQ+C) [sage] 2017/12/25(月) 16:44:33.34:DuOFgh3Va コピーしてファイル名置換するだけでしょ? フォルダもすでに取得してるなら fso.copyfile file.Path,folder.Path & "\" & Replace(file.Name,"○○","××") だけで行けるんじゃね : デフォルトの名無しさん (ワッチョイ ffb3-7LW1) [sage] 2017/12/25(月) 17:30:49.11:1470x9yD0 UserFormに「次へ」のボタンをつくり複数のUserFormを次々と経由することで対話式に値を取得していきたいと思っています 誤った選択をしてしまった場合に備え、戻るボタンも作るとします ○UserForm1の「次へ」ボタンのクリックイベントに以下のように記述しました Me.Hide UserForm2.Show ○そしてUserForm2の「戻る」ボタンのクリックイベントには以下のように Me.Hide UserForm1.Show うまくいったと思いきや、一度1に戻ってからもう一度UserForm2を再表示させると UserForm2のinitializeに書いた処理が実行されません。 仕方が無いので1の次へに UserForm2.Show Unload Me と書いてみると、今度は2から戻る時に、「フォームは既に表示されています。モーダルに表示できません」と出ます 2の「戻る」には上に書いたようにMe.Hideがあるにも関わらずこのエラー表示 解決法はありますか? : デフォルトの名無しさん (アウアウイー Sa87-cQ+C) [sage] 2017/12/25(月) 17:46:45.39:DuOFgh3Va ユーザーフォームの行き来はめんどくさいしスパゲティになりがちだからやめた方がいいと思う というのはさておき、initializeじゃなくてactivateイベントにしてみたらどうかね : デフォルトの名無しさん (ワッチョイ ffb3-7LW1) [sage] 2017/12/25(月) 17:48:18.57:1470x9yD0 いやいや何か間違えてる 修正 仕方が無いので2の「戻る」に UserForm1.Show Unload Me と書いてみると、今度は1から2にもう一度行こうとすると、「フォームは既に表示されています。モーダルに表示できません」と出ます ついでにとにかくhideは避けてすべてunloadにしてもやはり2→1の段階で同じアラート 解決法はありますか? : デフォルトの名無しさん (ワッチョイ ffb3-7LW1) [sage] 2017/12/25(月) 17:48:59.15:1470x9yD0 ありがとうございます 調べてみます 分からなかったらまた書きますのでお願いします・・・ : デフォルトの名無しさん (ワッチョイ ffb3-7LW1) [sage] 2017/12/25(月) 18:01:10.24:1470x9yD0 うまくいったようです 3時間ほど解決法が見つからず頭抱えてました 感謝です : デフォルトの名無しさん (ワッチョイ 03bd-EmoC) [sage] 2017/12/25(月) 22:53:06.92:S4ukHgvI0 sub test() 'マクロ起動用エクセルがあるフォルダ内のフォルダ名の取得 Dim strPattern As String Dim strFolder As String strPattern = "C:\xxxxx" strFolder = Dir(strPattern, vbDirectory) Do While Len(strFolder) > 0 If GetAttr(strPattern & strFolder) And vbDirectory Then If strFolder <> "." And strFolder <> ".." Then 'if文始まり '各フォルダ内にあるエクセルファイル名の取得 Dim FSO As Object Set FSO = CreateObject("scripting.filesystemobject") Dim folder As Object Set folder = FSO.getfolder(strPattern & strFolder) Dim f As Object For Each f In folder.Files If f.Name Like "*" & Month(Date) & "*" Then 'ファイルパスに今月が含まれている場合 FSO.copyfile f.Path, folder.Path & "\" & Replace(f.Name, Month(Date), Month(DateAdd("m", 1, Date))) Debug.Print f.Name End If Next End If 'if文終わり End If strFolder = Dir() Loop End Sub 717ですが上の記述で一応期待通りの動作をしてくれました 皆さんありがとうございました ただこれだとファイル名に1〜12の数字を使えなかったりエクセル以外も取得できるのでまだ改良が必要そうです : デフォルトの名無しさん (アークセー Sx87-/hyL) [sage] 2017/12/25(月) 23:30:15.25:63usksBrx ファイルの種類に関しては、ループ処理の冒頭でFSO.GetExtensionName(f.Path)の戻り値を調べて処理を分岐させるようにすれば、狙った種類のファイルだけを処理できるようになると思うよ : デフォルトの名無しさん (ワッチョイ 637b-fQzT) [] 2017/12/25(月) 23:37:14.60:aEhB4dZD0 ググったのですがどうしてもわからないので教えてください 【環境】Windows10、Excel2010 【不具合症状】新規コードの作成ができない 新規bookを作成し、VBEを起動した際、通常はプロジェクトウィンドウに 「Sheet1-3」が表示されるかと思いますが、真っ白なまま何も表示されない状態です。 メニューの「挿入」をクリックしても、標準モジュールがグレイアウトになってしまい、 新規コードの作成が行えない状態です。 ITに相談しても初めての事例とのことでわかりませんでした。 コンパネからのofficeの修復も行いましたが改善されません。 マクロのセキュリティは「全て有効」で設定されています。 xlsm形式で保存もしてみましたがダメでした。 PC再起動も試してみました。 同一PCで、既存作成マクロの実行は行えます。 既存マクロのVBEを起動した際、プロジェクトウィンドウやコードウィンドウは 普通に見えますが、コードウィンドウで1文字でも編集すると、F5実行時に 「ファイルが見つかりません」とのエラーが出ます。ステップ実行でも同じです。 編集は例えコメント行でも同じエラーが出ます。 新規作成は全てにおいて不可です。 自動記録をしようとすると「マクロが記録できませんでした」とエラーが出ます。 マクロの作成ボタンは押せますが、押してもコードウィンドウが起動しません。 新規作成と編集が制限されているようなのですが、どこから変更するのかが どうしてもわかりませんでした。もしわかる方いらしたら教えていただけないでしょうか? スレチであれば、該当スレッドに誘導していただけると助かります。 よろしくお願いします。 : デフォルトの名無しさん (アウアウイー Sa87-REpE) [sage] 2017/12/26(火) 01:59:52.47:fIC/1lmja エクセルのレジストリ削除してみてもダメ? : デフォルトの名無しさん (ワッチョイ 6f9d-FmKA) [sage] 2017/12/26(火) 06:55:25.36:cWcYrW8d0 そのマシンに新規ユーザーつくって現象が発生する? テンポラリやら消したら直るかもしれん あとセキュリティ対策ソフト切って試すとか : デフォルトの名無しさん (ワッチョイ cf80-fDvV) [sage] 2017/12/26(火) 06:58:32.09:gkP6o6Ks0 「01月」というファイル名のコピーが、「02月」として、同じフォルダに入れるのか フォルダ内に、「01月」「02月」があるとして、 この状態で、もう一度、同じ事をするなよ!w 設計として、同じフォルダに入れるのはおかしい。 異なるフォルダに入れるべき わかりやすいように投稿する時は、名前欄に、717 と入れてくれ : デフォルトの名無しさん (ワッチョイ 637b-7LW1) [sage] 2017/12/26(火) 07:54:39.17:6qOsufVw0 732です、レスありがとうございます。 最悪、officeの再インストールも覚悟しています。 レジストリかも?とはITには言われましたが・・・・ 新規ユーザーはまだ試していません。 セキュリティ対策ソフトはITの管轄なので、切れるかどうか不明ですが 聞いてみます。 こちらの書き込みは自宅からなので、次のレスが遅くなるかもしれません。 よろしくお願いします。 : デフォルトの名無しさん (アウアウイー Sa87-cQ+C) [sage] 2017/12/26(火) 08:20:51.65:upqov7ALa 運用の話までは管轄外じゃね あとは自分で考えりゃいいよ : デフォルトの名無しさん (ワッチョイ ff23-pwf+) [] 2017/12/27(水) 09:27:07.83:58xyBvha0 とかとかのコードで意味わかんないところがいくつかある (コードが間違ってるって意味じゃなくて、こっちの知識が足りなくて理解が追い付かないって意味です) まずは なんでコレクションを宣言してるのか? しかもなぜ宣言したのに使わないのか? 変数eは何のために使ってるのか? ファイルのパスをsplitで分割してるけど、 ファイル名だったらinstrrevで\を探したほうが話が早いんじゃないか? 等々 は ループの中でdim使うのは大丈夫なの? 複数回宣言したらエラーになりそう 後、一番知りたいのが If strFolder <> "." And strFolder <> ".." Then これ、どういう意味なのか解説をお願いしたい (書いてる人たちにケチつけてるんじゃなくて、本当に分らない事を教えて欲しいだけです) どなたか教えてください、よろしくお願いします : デフォルトの名無しさん (ワッチョイ ff1e-bqMz) [sage] 2017/12/27(水) 09:45:06.41:fOQst04i0 コマンドプロンプトで cd .. って打ってみたら判る c:>test>test1> cd .. 親ディレクトリに移動する。つまり親フォルダの事 「.」 は「.」 カレントフォルダの事 : デフォルトの名無しさん (ワッチョイ ff1e-bqMz) [sage] 2017/12/27(水) 10:22:00.13:fOQst04i0 寝ぼけて書いてたからめちゃくちゃだな^^; c:\test\test1> というフォルダがあったとしてそこで c:\test\test1>cd .. と打てば c:\test> と親ディレクトリ(フォルダ)に移動する : デフォルトの名無しさん (アウアウイー Sa87-cQ+C) [sage] 2017/12/27(水) 10:45:52.46:90Vjgj1Fa ループ内でDimしてもエラーにはならないよ その都度メモリが割り当てられるだけじゃないかな フォルダ名の"."と".."は相対パスじゃなかったかな 一個上と二個上の親フォルダだったと思う 間違ってるかもしれないから調べてね : デフォルトの名無しさん (アウアウイー Sa87-cQ+C) [sage] 2017/12/27(水) 10:46:46.56:90Vjgj1Fa あ、間違ってたw .がカレントフォルダで..がひとつ上の親フォルダね すんませんな : デフォルトの名無しさん (アウアウイー Sa87-cQ+C) [sage] 2017/12/27(水) 10:48:05.37:90Vjgj1Fa あとsplitの問題に関しては読みやすさとか書きやすさじゃね 俺もよくやる 楽だからね : デフォルトの名無しさん (ワッチョイ cf80-fDvV) [sage] 2017/12/27(水) 12:51:59.50:u0gTyM9V0 beforeStr = "あ12月い" afterStr = beforeStr.sub(/\d\d月/) do |matched| month = matched.to_i + 1 month = 1 if month == 13 sprintf("%02d", month) end puts afterStr #=> あ01い Ruby で、文字列を置換した。 こういう処理は、Ruby が良い。 PowerShell でも作ってみたが、簡単な置換方法がなかった。 置換時に、コールバック関数を取れる、sub のような関数が無かった わかりやすいように質問者が投稿する時は、名前欄に、717 と入れてくれ : 744 (ワッチョイ cf80-fDvV) [sage] 2017/12/27(水) 12:58:13.04:u0gTyM9V0 間違っていたので、修正した beforeStr = "あ12月い" afterStr = beforeStr.sub(/(\d\d)月/) do |matched| month = $1.to_i + 1 month = 1 if month == 13 sprintf("%02d", month) + '月' end puts afterStr #=> あ01月い : デフォルトの名無しさん (ワッチョイ ffb3-7LW1) [sage] 2017/12/27(水) 13:38:32.87:lJNZ7xHQ0 VBA勉強し始めて間もない時に組んだマクロに replaceという名前のプロシージャを作りました そのことはすっかり忘れてたのですが、最近になってそのマクロを手直しする必要があって その中でReplace関数を使おうとしたらエラーが出る おかしいなと思い調べてみたらSub replace() を発見 プロシージャの名前を変えたら大丈夫かと思いきやなぜかどこかに何かが残っているようでエラーがでる 一旦そのモジュールを解放したらReplace関数は使えるようにはなりました しかし、なぜかReplaceと打ってもreplaceとなる replaceと打ってもそのままreplace replaceをReplace関数と認識してくれてはいるものの、どこかに何かが残っている 他のブックでは起きないのでまぁそれほど支障はないものの、もし分かる方いらっしゃったら どうすればいいか教えてください : デフォルトの名無しさん (アウアウイー Sa87-cQ+C) [sage] 2017/12/27(水) 13:47:19.08:fCTi8N3va Replaceで変数宣言してみ : デフォルトの名無しさん (ワンミングク MM9f-tu6d) [sage] 2017/12/27(水) 15:20:29.55:DW1nj5RcM 大文字小文字は、現在開いてるコード全体で統一されてしまうからな。 変数でもプロシャージャでもいいから、定義し直すと内部で覚えてる大文字小文字が上書きされるぽ この仕様のせいで、他人の書いたブック開いたまま修正保存するといつのまにか変わってたりする。 するとWinMergeとかでDIFFしたときにイラッ 独り言でした : デフォルトの名無しさん (アウーイモ MM67-dNkK) [sage] 2017/12/27(水) 18:43:06.62:8Kp24ZKYM プロシージャ外に書いたオブジェクトの寿命はいつまでなのでしょうか? グローバル変数にオブジェクトを保存してそれをfunctionで返すシングルトンオブジェクトを作ったのですが、 プログラムが一度終了して再度起動した際もオブジェクトが残っており、ゴミデータでエラーが起きています。 一度ファイルを全て閉じるまでは残るものなのでしょうか? : デフォルトの名無しさん (アウアウイー Sa87-cQ+C) [sage] 2017/12/27(水) 18:55:21.26:K6GLaCg8a グローバル変数ならエラーで止まるかブックが生きてる限りは生きてるんじゃね : デフォルトの名無しさん (JP 0H27-amUm) [sage] 2017/12/27(水) 19:03:21.38:4eyrVwN9H あとEndで止めると死ぬ : デフォルトの名無しさん (スップ Sd1f-Eeo6) [] 2017/12/27(水) 20:23:28.17:ry3vSREld End なあ、せめて Class_Terminate()して欲しかった : デフォルトの名無しさん (ワッチョイ ffeb-7LW1) [sage] 2017/12/27(水) 20:40:54.92:RyDVOJzS0 です。 officeの再インストール試してみましたが 不具合解消せずでした・・・・無念 幸い既存マクロは動くので、新規作成と実行は 他のPCでやることにしました。 不具合はExcelだけで、Accessでは特に問題ありませんでした。 一応ご報告まで。 : デフォルトの名無しさん (アウアウイー Sa87-Tgm4) [sage] 2017/12/27(水) 20:55:52.26:K6GLaCg8a てか、マクロ終わったら初期化すりゃよくね? できない仕様なの? : デフォルトの名無しさん (ワッチョイ b303-G8t+) [sage] 2017/12/27(水) 21:08:27.21:CubzVxEy0 マクロ終わったら誰が初期化するん? : デフォルトの名無しさん (ワッチョイ 6fc5-buzn) [sage] 2017/12/27(水) 23:24:01.01:TIhBPqs40 マクロの記録から操作を記録すると 標準モジュール作成される? : デフォルトの名無しさん (ワッチョイ 6fd2-oA/d) [sage] 2017/12/27(水) 23:29:35.39:0b7v1yOK0 Endだとなにがまずいのでしょうか : デフォルトの名無しさん (ワッチョイ de93-SYER) [sage] 2017/12/28(木) 02:02:28.11:uSnaEunu0 Globalで保持していると想定していた変数がいつのまにかクリアされていて想定外の動作をおこし痛い目にあったことがあります。 調べてみたら、エラー発生時またはEnd通過時にGlobal変数の寿命が尽きるようで、、 それ以来、Global変数もEnd Statementも避けています。 記憶が必要な場合は、Cell値やValidation値またはDocumentProperty等を使うようになりました。 : デフォルトの名無しさん (JP 0H96-FiVz) [sage] 2017/12/28(木) 02:45:31.50:m7DZbaKUH VBA初心者です 2つのセルがイコールになるように別のセルの値を変化させるというVBAソルバを作成したいのですが、エラーばかりで全く進みません・・・ 現在は7行目から10行目まで構文エラーが出ています。 どなたかご教授願います・・・ Sub Solver() i = 1 Do Until i = 313 '------------------------------------------- Application.DisplayAlerts = False SolverOk SetCell:="K" & i, ByChange:="J" & i SolverAdd cellRef:=Range("K1:K313"), _ Relation:=2, _ FormulaText:=Range("L1:L313"), _ Application.DisplayAlerts = True '--------------------------------------------- SolverSolve i = i + 1 Loop End Sub : デフォルトの名無しさん (ワッチョイ cab3-RYVm) [sage] 2017/12/28(木) 05:04:43.84:BF7frMSQ0 ありがとうございました。 : デフォルトの名無しさん (アウアウイー Sa43-UI1C) [sage] 2017/12/28(木) 08:06:18.47:VokPBxMja マクロ終わったらオブジェクト破棄するんじゃダメなのかと言うことだが まあダメな使用なんだろうけど : デフォルトの名無しさん (スップ Sdea-4yVJ) [] 2017/12/28(木) 08:14:47.46:ezpQ52SId イミディエイトウィンドウにあるオブジェクトのことだよね : デフォルトの名無しさん (ワッチョイ c69d-pcOt) [sage] 2017/12/28(木) 17:26:42.52:GeC01ME+0 ,758 そもそもプログラムが終了ってどういう事をさしてる? ホントにプログラムが終了すれば、すべての変数の内容は失われるよ たんに実行するコードが無くなっただけではプログラムは終了していない Endはプログラムを終了させるけど、エラー出ただけでは終了するとは限らない デバッグで再実行や変数見たりできるのはプログラムは中断したけど終了してないから : 753 (ワッチョイ 5aeb-RYVm) [sage] 2017/12/28(木) 23:10:38.77:lWNTZScR0 753です。 マクロの記録そのものができないのです。 記録しようとすると「マクロの記録ができませんでした」と エラーが出てしまいます。 新規作成と編集が全て制限されているようです。 セキュリティは「すべて有効」で設定しており、 そこでの問題は無いと思うのですが・・・・ : デフォルトの名無しさん (ワッチョイ cb8a-Auke) [sage] 2017/12/29(金) 04:00:07.55:G/qmS2zk0 "_" は次の行をつなげるためにつけたのだろうけど Application.DisplayAlearts = True の前の行にも "_" が付いているから 何か貼り付け忘れか、間違って削除してしまったものがあるのでは : デフォルトの名無しさん (ワッチョイ cb8a-Auke) [sage] 2017/12/29(金) 04:08:47.98:G/qmS2zk0 セキュリティーレベル一番高いとダメなんじゃね : デフォルトの名無しさん (ワッチョイ 5fd8-0Y/N) [sage] 2017/12/29(金) 07:22:34.45:b/Z/hzqU0 あー、昔そんな事象に当たったことあるよ 原因は同じかどうかは分からんけど 俺の場合とんでもなく深い階層のフォルダに置いてたら VBEのシートモジュールが青く表示されてコードが作成できなくなった そのファイル、とりあえず浅い階層のフォルダや どこかのサーバに置いているなら クライアント側にコピーして内容確認出来る? : デフォルトの名無しさん (ワッチョイ 5aeb-RYVm) [sage] 2017/12/29(金) 08:53:00.31:JNsjSKSN0 732、753です 皆様レスありがとうございます。 作成の不具合は、全くの新規Bookでも起こります。 既存マクロの場合は、コードの表示と実行は行えますが 編集が制限されています。 問題が発生してから、他のPCで新規作成したマクロを 該当PCで実行しようとしましたが、それはコードの表示すら できませんでした。ファイルサーバー経由とかではなく デスクトップ上に置いて実行しても同じです。 Accessでは特に問題ないので、VBAそのものではなく、 Excel単体の何かだとは思うのですが、皆目見当がつきませぬ。 : デフォルトの名無しさん (ワッチョイ 0a65-FiVz) [sage] 2017/12/29(金) 10:57:41.44:MXSoKJ1y0 です 一部コピペして使ったので何か消してしまったのかもしれません・・・ 確認してみます、ありがとうございます。 : デフォルトの名無しさん (ワッチョイ 4a23-Kkzi) [sage] 2017/12/30(土) 12:22:18.46:cGzM6pFo0 CreateObject("System.Collections.ArrayList")ってやったら .NETのArrayListがVBAで使えてしまったんですが これ隠し機能とかじゃなくて正式に使っていいんですよね? : デフォルトの名無しさん (ワッチョイ 069f-RYVm) [sage] 2017/12/30(土) 13:25:09.57:dKM8JRI70 前にも話題に上がったけど .NETのほんの一部はVBAからも使える リファレンスにも書いてあったような気がする 他で代替できるのでArrayListをわざわざ使うメリットはないということで そのときは終わったと思う : デフォルトの名無しさん (ワッチョイ 4a23-Kkzi) [sage] 2017/12/30(土) 15:32:35.43:cGzM6pFo0 参考にします。ありがとうございました : デフォルトの名無しさん (ワッチョイ b3b3-UI1C) [sage] 2017/12/30(土) 15:33:00.15:xXJ5T9Ia0 .Net Frameworkの機能でコンストラクタに引数を渡す必要のないものは使えるらしい ArrayListは各種メソッドが揃ってるからコレクションより使いやすいんじゃね?キーを使わないなら ただ遅いのがたまに傷 : デフォルトの名無しさん (ワッチョイ 6fc3-2NT7) [] 2017/12/31(日) 08:34:16.68:5sx4VZ0k0 Windows APIだって使えるんだぞ? : デフォルトの名無しさん (ワッチョイ de81-DSDK) [] 2017/12/31(日) 08:58:37.79:TXRnAgcd0 VBAの保存方法について バックアップどうしてますか? VBAのマクロだと戻る釦聞かないし、バグって復旧するとマクロの個所全部消えちゃうので2つくらいのバックアップを別ファイルでとってあるんですけど皆さんはどうしてますか? まだ素人なので思ったのと違う処理になって戻せなくなることがしょっちゅうあるので バックアップは大事 : 775 (ワッチョイ de81-DSDK) [] 2017/12/31(日) 09:02:17.31:TXRnAgcd0 戻る釦ってまるい矢印の奴ね : デフォルトの名無しさん (ワッチョイ 4a1e-FiVz) [sage] 2017/12/31(日) 09:09:26.61:PwPBZUwb0 バージョン管理システム入れてないなら同じになるでしょ。 俺も同じくでファイル名_Ver nnn.xlsmと言うかたちで3世代別フォルダに保存してるけど (時たま忘れたりする^^; : デフォルトの名無しさん (ワッチョイ 86e7-XPej) [sage] 2017/12/31(日) 09:49:30.47:aMifsa1T0 マクロ有りエクセルファイル自体にデータを入れて運用するのと、 データは別エクセルファイルにしてマクロ有りエクセルファイルでデータ入りエクセルファイルを操作するのと、 どっちがメンテナンスしやすい作り方だろうか? いつも悩んでしまう : デフォルトの名無しさん (ワッチョイ c32b-LuW1) [sage] 2017/12/31(日) 09:52:29.70:35C6Q16O0 アドインマクロにしましょう : デフォルトの名無しさん (ワッチョイ 5f9d-tENg) [sage] 2017/12/31(日) 11:06:17.25:fsRyV04Q0 マクロのバージョン管理ってどうやってます? インポートファイルを分けすぎると不便なのでshareFanction見たいなインポートファイルに使いそうな関数全部入れてますが、初心者なもので開発中に関数の引数や戻り値を変えたくなるような場面が多々あり 今までのshareFanctionと互換性が保てなくなりますが、引数と戻り値を修正した関数以外でバグを潰したような関数は最新を使用したいです。 今はコピペで対応してますが : デフォルトの名無しさん (ワッチョイ cae7-n93d) [sage] 2017/12/31(日) 11:27:58.03:rNrttlhS0 個人なのか仕事なのか書かないと有効なレスがつかないのではないかな : デフォルトの名無しさん (ワッチョイ 5f9d-tENg) [sage] 2017/12/31(日) 11:34:47.18:fsRyV04Q0 個人です 個人で開発、個人で使用です : デフォルトの名無しさん (ワッチョイ cae7-n93d) [sage] 2017/12/31(日) 11:36:51.05:rNrttlhS0 ならGithubとSourceTreeで快適にできるんじゃないの? 俺も全然高度な使いこなしできてないけど楽ちんだ : デフォルトの名無しさん (ワッチョイ 5f9d-tENg) [sage] 2017/12/31(日) 11:55:17.97:fsRyV04Q0 ありがとうございます ざっとみた感じソースファイルのバージョン管理はできそうですが、 例えばサーバーあるいはローカルマシン上にそのshareFanctionを使用している分散しておいてある場合、 それぞれのマクロを調べて更新したいファイルを選択、修正版マクロを適用する、 みたいな使い方ってできるんですかね? : デフォルトの名無しさん (ワッチョイ 5f9d-tENg) [sage] 2017/12/31(日) 11:57:21.02:fsRyV04Q0 >>例えばサーバーあるいはローカルマシン上にそのshareFanctionを使用している分散しておいてある場合、 修正 shareFanctionを使用しているファイルが : デフォルトの名無しさん (ワッチョイ de81-DSDK) [] 2017/12/31(日) 12:53:47.48:TXRnAgcd0 ヴァージョンって仕事じゃないからいつから何時まででUP履歴にしたらいいかわからなん 機能変更したら必ずかもしれないけど、個人用だとやりながら変更しているからバージョン数が半端ないことになる。 : デフォルトの名無しさん (アウアウイー Sa43-UI1C) [sage] 2017/12/31(日) 13:10:06.47:sYPUhsnja バージョン管理は大変だよな インストーラーみたいなのつくってどうにかしようとしてるがうまく行くかわからん : デフォルトの名無しさん (ワッチョイ cab3-tILW) [sage] 2017/12/31(日) 13:25:39.05:pVPyHW7p0 > バージョン数が半端ないことになる。 問題ないでしょ : デフォルトの名無しさん (ワッチョイ 5f9d-tENg) [sage] 2017/12/31(日) 13:31:04.61:fsRyV04Q0 専用のソフトがなければ1sheetをマクロ関数管理用にして各関数内にver x.y.z(x変更で互換性無し、y変更で互換性あり、z変更は互換性ありバグ修正みたいにして) モジュールをインポートしたファイルをオープン時に、イベント検知で所定の管理ファイルを検索、新しいバージョンがあれば自動で今までのモジュールを解放、y,zバージョンが最新のファイルをインポート みたいにすれば実現可能そうですが結構手間がかかりそうで… : デフォルトの名無しさん (アウアウカー Sacb-WFBV) [sage] 2017/12/31(日) 13:56:42.14:hllNi94Va マクロで書けよ。 バージョン管理。 セキュリティが低下するけどな。 : デフォルトの名無しさん (ワッチョイ 0f03-vlH/) [] 2017/12/31(日) 18:06:59.07:nOUozIFo0 そもそも論として、たかがマクロでバージョン管理が必要になるような力作()作るなよw キミたちは一体エクセルマクロで何を築こうとしておるのかねw : デフォルトの名無しさん (ワッチョイ deb9-FiVz) [sage] 2017/12/31(日) 18:13:51.04:2b4EaTgg0 仕事でVBA扱ってると色々な理由から小さいマクロでもバージョン管理が必要になってくる。 : デフォルトの名無しさん (ワッチョイ cae7-n93d) [sage] 2017/12/31(日) 19:27:51.32:rNrttlhS0 内容がぐちゃぐちゃになったら困るものにはバージョン管理が必要さ 力作()でなくても再構築はかったるいからな : デフォルトの名無しさん (ワッチョイ 0f03-vlH/) [] 2017/12/31(日) 19:58:25.49:nOUozIFo0 力作()じゃないのにぐちゃぐちゃになるってどんだけ当てずっぽうにマクロ書いてんだよw : デフォルトの名無しさん (ワッチョイ cab3-tILW) [sage] 2017/12/31(日) 20:00:31.71:pVPyHW7p0 社内に展開するとかでサポートが必要ならバージョン管理ぐらいは必須だろ は無知すぎ : デフォルトの名無しさん (ワッチョイ 0f03-vlH/) [] 2017/12/31(日) 20:24:53.68:nOUozIFo0 確かにおまえらの考える事は見当もつかんけどなw 別にいいや無能思考に明るくならなくてもw : デフォルトの名無しさん (ワッチョイ defa-FiVz) [sage] 2017/12/31(日) 20:28:42.31:1PdKj8Yj0 またメゾット君か。 : デフォルトの名無しさん (アークセー Sx03-8opW) [sage] 2017/12/31(日) 20:42:44.41:rRjJbr8wx メゾット君って雰囲気ですぐ分かるよね : デフォルトの名無しさん (ワッチョイ cb8a-Auke) [sage] 2017/12/31(日) 20:54:32.08:KnonKKai0 OLDフォルダにファイル名の後に日付つけたファイルをコピーしてる : デフォルトの名無しさん (ワッチョイ 4a23-Kkzi) [sage] 2017/12/31(日) 21:20:00.26:A+5By6dM0 ていうかバイナリファイルをバージョン管理システムに登録したところで 単なる時系列バックアップにしかならんうえに シートを更新しただけでバージョンが変わるから意味ないのでは : デフォルトの名無しさん (ワッチョイ cae7-n93d) [sage] 2017/12/31(日) 22:37:10.58:rNrttlhS0 力作2.0 : デフォルトの名無しさん (ワッチョイ 8aa4-ycq7) [] 2017/12/31(日) 22:50:02.43:InzisC8s0 悩みはみんな一緒なんだね。俺はバージョンアップに悩んでアドイン化したが これはこれで悩ましいところがあるんだな。シートを初期化(つまりClearとかClearContents)する のにもよーく考えないと結構危ない。アドインはどのブックでも実行出来てしまうからPCに疎いヤツが使うのも考えると 別の方法を考えた方が良いんだろうかとか考えてる。 : デフォルトの名無しさん (ワッチョイ cae7-n93d) [sage] 2017/12/31(日) 22:55:00.56:rNrttlhS0 アドインてxlamのこと? だったらそのシートは一切使っちゃダメだよ プログラムモジュールだけの存在にするべき : デフォルトの名無しさん (ワッチョイ 8aa4-ycq7) [] 2017/12/31(日) 23:12:43.15:InzisC8s0 そりゃ分かってるての。ブックを指定する時は「ActiveWorkBook」とするしかない(決めつけはよくないが) からよーく考えてコードを書かないと危ない場合もあるって話。使う連中の9割はマクロどころかシート関数も 知らないような連中なんだから。 : デフォルトの名無しさん (ワッチョイ cae7-n93d) [sage] 2017/12/31(日) 23:41:30.90:rNrttlhS0 ・処理をスタートするFunction や Subはアドイン側にはない。当該Book側にある ・そのFunction や Subがアドイン側の機能を使う だとするとアドイン側に「ActiveworkBook」なんて書く必要はなくて、処理対象のSheetやRangeを 引数で受け取るだけになると思うんだがね : デフォルトの名無しさん (ワッチョイ 8aa4-ycq7) [] 2017/12/31(日) 23:52:05.59:InzisC8s0 作業するBookはxlsxなんだよ。マクロはxlms側に書いてある。 なんでこうしたかというと、仕事柄、ブックは地方自治体に提出する場合があるから。 何の事かわからないだろうからもうちょっと書くと、測量データの野帳なんだよ。 : 806 (ワッチョイ 8aa4-ycq7) [] 2017/12/31(日) 23:53:24.81:InzisC8s0 xlmsじゃねえや、xlamだな。 : デフォルトの名無しさん (JP 0H27-GXwu) [] 2018/01/01(月) 04:27:25.57:WDGj6QXoH マクロ有効ブックから マクロ無効ブックを開いて処理して保存して閉じる という方法も有ると思う : デフォルトの名無しさん (ワッチョイ cab3-tILW) [sage] 2018/01/01(月) 09:37:05.14:hnfikatx0 自動処理したいならだろうし、操作者が開いて何かしたいならメニューに追加しとけばいいだけだと思う は無知なのかちょっと頭固いんだろうな : デフォルトの名無しさん (JP 0H27-QCE3) [] 2018/01/01(月) 13:40:19.53:iV2QIiO7H 作業ブック側にコード書けないんだよ。知ったかすんなよボケ : デフォルトの名無しさん (ドコグロ MMdf-tILW) [sage] 2018/01/01(月) 13:55:03.62:7v1CUCWaM 作業ブックにコードなんか要らんだろ w 知らないなら黙ってろ てか、アドインでメニュー追加なんて基本中の基本だと思うが ttp://toshimana.hatenablog.com/entry/2014/01/26/204938 : デフォルトの名無しさん (ワッチョイ c620-cnjM) [sage] 2018/01/01(月) 14:25:45.74:7yffOGmB0 知らないことを素直に知らないと言いなさい : 【ぴょん吉】 【345円】 【東電 66.8 %】 【B:91 W:71 H:89 (A cup)】 (ワッチョイ 46c5-Auke) [sage] 2018/01/01(月) 14:27:07.60:tZ/lpIQo0 今年はいい年になるかなw : デフォルトの名無しさん (ワッチョイ cae7-n93d) [sage] 2018/01/01(月) 14:29:26.10:UomJiKNZ0 Workbook_AddinUninstall てのは知らなかったな。 Workbook_Open するのと効果は違うんだろうか? : デフォルトの名無しさん (アークセー Sx03-8opW) [sage] 2018/01/01(月) 14:54:13.21:ixsE+qrMx またメゾット君が暴れてるな あの馬鹿が出入りするようになってから荒れすぎ : デフォルトの名無しさん (アウアウイー Sa43-UI1C) [sage] 2018/01/01(月) 15:45:18.49:bzNinO0Ma よく考えろよ : デフォルトの名無しさん (ワッチョイ cae7-nqWF) [sage] 2018/01/01(月) 16:11:19.12:PLRWaMeF0 おっと、 Workbook_AddinInstallを Workbook_AddinUninstallと書き間違えた : デフォルトの名無しさん (アウアウイー Sa43-UI1C) [sage] 2018/01/02(火) 09:36:26.90:nA397GZea だとしてもだ イベントの言葉の意味そのままだよ よく考えろよ : デフォルトの名無しさん (スップ Sd8a-nqWF) [sage] 2018/01/02(火) 12:29:02.41:MKa2S+Tjd 「対象のアドインを参照設定しているブックを開いた」というイベントを想定してた そうじゃないのね : デフォルトの名無しさん (ワッチョイ c69f-v6Xa) [sage] 2018/01/03(水) 10:57:08.56:rhTFyGx/0 そんなことはない。 設定値を保存するためのiniファイルの代わりにするとか、テンプレートの代わりにするとか、使い道は沢山ある。 : デフォルトの名無しさん (ワッチョイ b3b3-UI1C) [sage] 2018/01/03(水) 11:46:24.84:ZpYRfYyG0 アドインにするにしてもなんにしても運用がしっかりされてないと意味がない ファイル名やシート名程度が保証されてないならマクロ化なんて諦めろ : デフォルトの名無しさん (ワッチョイ 1b65-BE4F) [sage] 2018/01/03(水) 11:59:35.70:Uz65NhYa0 設定値を保存するのはやめたほうが良いと思うな。 バージョンアップしたときに設定値がリセットされてしまうとか、エクセルバグの巻き添えでブック破損の危険性がある。 できるだけアドインは読み取り専用で運用するべきだと思う。 過去に内部シートに保存するように作って問題が起きたので、バージョンアップ時にxmlにコンバートさせた事があるわ : デフォルトの名無しさん (ワッチョイ cab3-tILW) [sage] 2018/01/03(水) 12:49:50.09:lLEkaf6s0 お前のバグを根拠にされてもなぁ : デフォルトの名無しさん (アウアウイー Sa43-UI1C) [sage] 2018/01/03(水) 14:45:49.49:hfgsKA7ma まあ、設定は外出しにするのが普通に安全策じゃね? xlamのシートは明らかに利用してほしくないっていう思いが伝わる作りな訳だから : デフォルトの名無しさん (スップ Sd8a-nqWF) [sage] 2018/01/03(水) 15:32:51.77:00k1dN96d 利用者が不用意にセルデータをクリアしてそのままセーブしても自覚すらしないかも : デフォルトの名無しさん (ワッチョイ 2bb3-xohC) [sage] 2018/01/04(木) 05:46:13.89:UuI+tM4Q0 質問よろしくお願いします。 A列,B列,C列,D列 Aa,111,bbb,20 Bb,111,aaa,30 Aa,222,bbb,10 Bb,111,aaa,10 Aa,111,bbb,15 上記の様な表を下記の様にしたいです。 A列,B列,C列,D列 Aa,111,bbb,35 Aa,222,bbb,10 Bb,111,aaa,40 A,B,C列の値が一致したらD列を加算して行を削除するという処理です。データは約1000行程です。 : デフォルトの名無しさん (ワッチョイ 9f1e-j5y8) [sage] 2018/01/04(木) 06:37:20.49:MFccPkO20 1000行程度ならSUMIFSとかでできるんじゃないの : デフォルトの名無しさん (ドコグロ MM3f-TPPA) [sage] 2018/01/04(木) 06:55:39.59:IcyEu6L/M 要件によるけどそういうビューを作ればいいんじゃね? create view V as ( select A列,B列,C列,sum(D列) as D列 from 表 group by A列,B列,C列 ) : デフォルトの名無しさん (ドコグロ MM3f-TPPA) [sage] 2018/01/04(木) 06:57:20.78:IcyEu6L/M すまん、寝ぼけててSQLスレと勘違いしてた... はなしで : デフォルトの名無しさん (ワッチョイ 9f23-wtpF) [sage] 2018/01/04(木) 07:39:39.14:IGCyfMcU0 見るからにデータベース向けの案件 集計するキーとなる列が左端一列、その右に合計対象の数値列という2列形式なら データタブにある統合でできるんだが : デフォルトの名無しさん (ササクッテロリ Spcf-xohC) [sage] 2018/01/04(木) 08:01:11.56:5mprgbRzp すみません説明不足でした。 キー項目が1000種類以上あり、毎回CSVから読み込んでから処理をする為、事前にWorkSheet関数を作っておくのが難しい状況です。 何か手はありますか? : デフォルトの名無しさん (ワッチョイ 0ffa-aKZ8) [sage] 2018/01/04(木) 10:15:47.38:fF+rBx/60 データベース系のデータは素直にデータベースソフトで管理しようよ・・・。 アクセスでやればマウス操作だけで終わる様な問題だよ。 : デフォルトの名無しさん (ワッチョイ 9f2d-Zjw3) [sage] 2018/01/04(木) 10:22:48.62:d1LyNdol0 ADOでcsvファイルをデータベースとして接続して に挙げられた SELECT文を実行する、という手段がとれる : デフォルトの名無しさん (アウアウイー Sacf-rQ0k) [sage] 2018/01/04(木) 10:31:44.20:no6Ylxj0a sqlならselectとorder byだけですむ案件だな 愚直にプログラム組むと厄介だけどね : デフォルトの名無しさん (スプッッ Sdbf-5v12) [sage] 2018/01/04(木) 10:38:07.48:7zx5w2nrd ピボットでいいんじゃね : デフォルトの名無しさん (スッップ Sdbf-w0Bz) [sage] 2018/01/04(木) 11:56:10.93:iFN99ve4d LINQって使えないんだっけ? : デフォルトの名無しさん (ワッチョイ eb2b-F1OP) [sage] 2018/01/04(木) 13:22:48.32:Gj6t78kg0 嘔吐フィルターかけてソートしてから 一致を上からみて加算と消去 フィルター解除忘れずに(多分ソート直後にすぐ) : デフォルトの名無しさん (ワッチョイ 9fb3-Ogju) [sage] 2018/01/04(木) 13:42:37.28:hO93+Igl0 ↑ 上級者じゃない俺なんかこういうのみると 全部2次元配列にぶちこんでif多用して無理矢理やっちゃうんだけど そういうのはだめなの? : デフォルトの名無しさん (アウアウイー Sacf-rQ0k) [sage] 2018/01/04(木) 13:47:48.60:cJgHrV+ta だめじゃないし、初心者なら無理やりVBAで組むのも勉強になるよ 重複の無いリスト作るのがやや面倒というか、煩雑になりがちなところだな エクセルの機能使えばいいっちゃいいけど、好みじゃないな : デフォルトの名無しさん (ワッチョイ 9fb3-Ogju) [sage] 2018/01/04(木) 13:55:27.88:hO93+Igl0 おれこういうの無理矢理やっちゃうの大好きで完成すると充実感半端ない 俺が組むマクロってそんなのばかりだ 基本初心者レベルの知識しか使わないでやっちゃうんで、 こういう質問をする人は、無理矢理やると遅くなるとか別の理由があって聞いてるのかな? とか思っちゃう : デフォルトの名無しさん (ワッチョイ 9f9b-jEmF) [sage] 2018/01/04(木) 15:19:59.75:kPmYITG+0 ファーム1の中に、オプションボタンが18個あり、オブジェクト名を『OP_1』〜『OP_18』としてボタン1を押してフォーム2に切り替える時に選択されてるオプションボタンのキャプションを取得して変数TUR1に入れたいんですけどどうしたらいいですか? : デフォルトの名無しさん (ワッチョイ ef9d-/oj5) [sage] 2018/01/04(木) 16:20:08.23:pGh8JphK0 For i = 1 To 18 With Me.Controls("OP_" & CStr(i)) If .Value = True Then TUR1 = .Caption Exit For End If End With Next : デフォルトの名無しさん (スップ Sdbf-dCp1) [sage] 2018/01/04(木) 17:41:48.62:uhyB+DSmd 初心者なんだけど以下のような表から特定のセルに入力された場合だけ、特定のセルをカウントする方法ってありますか? Aは全て Bは選ばれたものだけ、みたいな Aの全てをカウントするのはわけないんだけど、Bの選ばれたものだけをカウントする方法がわからない IF使うにしても何を指定すればいいのでしょう? わかりにくかてすいません : デフォルトの名無しさん (アウアウイー Sacf-rQ0k) [sage] 2018/01/04(木) 17:54:54.38:IwnGnNnba 普通にやり方がわからないんじゃないの cがキーになるなら重複しないcの一覧をつくって二次元配列でも構造体でもいいけどbがtrueならカウントするっていう風にすればいいと思う 件数多いならDBの領分だと思うけどね、この手の集計は : デフォルトの名無しさん (スプッッ Sdbf-jEmF) [sage] 2018/01/04(木) 18:02:17.19:HiTEnEcXd ありがとうございます! : デフォルトの名無しさん (スップ Sdbf-dCp1) [sage] 2018/01/04(木) 18:13:43.61:uhyB+DSmd Bがtrueなら、というのはどうやって指定すればいいですか? 範囲指定で : デフォルトの名無しさん (スップ Sdbf-dCp1) [sage] 2018/01/04(木) 18:23:20.07:uhyB+DSmd すいません、間違えて書き込んでしまいました Bがtrueなら、というのはどうやって指定すればいいですか? 範囲指定でがっつりやると、指定した範囲に一つでもtrueがあるとカウントしてしまって結局全部をカウントしてしまうんです : デフォルトの名無しさん (ワンミングク MMbf-OpPU) [sage] 2018/01/04(木) 18:27:59.94:iMxAIJokM 何も難しく考えなくても、E列に=A&B&Cを入れて、E列を行ラベルにしてピボットテーブルで集計するだけで出来るよ。 ABC列をもどしたいならINDEX,MATCHで引っ張って来ないといけないけども、日々エクセル使ってる人なら手慣れたものだと思う。と言うか慣れておくと色々便利。 詳しい解説いるならする : デフォルトの名無しさん (アウアウイー Sacf-rQ0k) [sage] 2018/01/04(木) 18:58:58.92:IwnGnNnba 一行ずつループしてるんだよね? フラグ用に変数用意してるなら一ループごとに初期化し直さないとだめよ ってか、今どんなコードで動かしてるか書いてくれるとやり易いんだけど : デフォルトの名無しさん (ワッチョイ ef9d-/oj5) [sage] 2018/01/05(金) 02:37:52.28:UixpopG00 フィルタとCOUNTIFで良い気がするが どうしてもVBAでやりたいのか? : デフォルトの名無しさん (ワッチョイ efe7-eFUV) [sage] 2018/01/05(金) 17:45:28.92:Kfn/8I4m0 HTMLソースで <a href = URL1</a> <br />**** ← 4桁の特定の数字が入る <a href = URL2>予約中</a> <a href = URL3>[取消]</a><br /><a href = URL4>[訂正]</a> 上記の4桁の数字とURL以外同様のソースが全部で10個あるページがあり、C5セルに4桁の数字を入れ、それに対応したURL3のリンクをクリックしたいのですが、どうすれば可能でしょうか? IEでそのページまで飛ぶのは問題ないのですが、aタグのインナーテキストが4桁の数字以外共通なためForとGetElementsByTagNameとの組み合わせでクリックできないので何か手段があれば教えて頂きたいです。 : デフォルトの名無しさん (アウアウカー Sa4f-nLZj) [sage] 2018/01/05(金) 21:06:25.46:UyFZaUswa そういう処理だったらソートしても問題無さそうだからソートしてループで良いんじゃね? 4桁の数字以外共通だとどうしてForとGetElementsByTagnameとの組み合わせでクリック出来ないのかが分からん。 : 851 (ワッチョイ efe7-eFUV) [sage] 2018/01/05(金) 21:25:01.57:Kfn/8I4m0 あ、確かに。書き間違えました。下記のコードだと10個のリンクのうち、一番上にあるやつをクリックすると思うのですが、 C5セルに入力した特定の4桁の数字の下にあるリンクをクリックしたいのです。 For Each obj In objIE.Document.getElementsByTagName("a") If InStr(obj.innertext, "取消") > 0 Then obj.Click Exit For End If Next : デフォルトの名無しさん (ワッチョイ ef9f-hL1C) [sage] 2018/01/05(金) 22:16:41.06:vO88ak3C0 DOMに親要素とか隣の要素を見ていくのあったよね あれで必要なだけ移動させればいいんじゃね : デフォルトの名無しさん (ワッチョイ ef9f-hL1C) [sage] 2018/01/05(金) 22:20:08.87:vO88ak3C0 を の方法で頑張ってコードにしたのを書き込みたいんだけど 403になっちゃうのよね 禁断のコードが含まれているのかしら : デフォルトの名無しさん [] 2018/01/07(日) 08:20:46.08 VBAを使わずにExcelの計算式で書くとこうだよね。 ・C列が「10」、B列が「○」の行を数えるなら =COUNTIFS($C$2:$C$6,10,$B$2:$B$6,"○") ・C列が「10」、B列が空以外の行を数えるなら =COUNTIF($C$2:$C$6,10)-COUNTIFS($A$2:$A$6,10,$B$2:$B$6,"") これをVBAで書きたいなら、そのままワークシート関数を呼び出せばいい。 ・C列が「10」、B列が「○」の行を数えるなら With Worksheets("Sheet1") dblCnt = WorksheetFunction.CountIfs(.Range("C2:C6"), 10, .Range("B2:B6"), "○") End With ・C列が「10」、B列が空以外の行を数えるなら With Worksheets("Sheet1") dblCnt = WorksheetFunction.CountIf(.Range("C2:C6"), 10) - WorksheetFunction.CountIfs(.Range("C2:C6"), 10, .Range("B2:B6"), "") End With 注:COUNTIFS関数はOffice 2007で追加されたので、2003とかでも動くようにするには 計算式なら配列数式を使うかダミーの結合列 (例: F列に =B2&”:”&C2)を使う必要があるし、 VBAなら自前で1行ずつループするFor文を書く必要がある。 : デフォルトの名無しさん (スプッッ Sdea-p8jN) [sage] 2018/01/11(木) 12:40:04.91:eKl5cJvJd コンボboxを使ってサジェスト機能みたいなことをしたくて作ってみたんだけど、1文字目はうまくいくんだけど2文字目以降打つとリストの一番上が乗ってきて使い心地が良くないんだけど、どうしたらいいですか? コンボboxのリストのみをクリアするやり方もいまいちわかりません。 j=2 Tname.rist=array() set MstSht=worksheets(″マスター″) str_word=controls(″Tname″&j).value for i=2toMstSht.cells(rows.count,6).end(xlup).row if instr(ucase(MstSht.cells(i,6).value),ucase(str_word))=1 then controls(″Tname″&j).additem MstSht.cells(i,6).value end if next : デフォルトの名無しさん (ワッチョイ 1188-/4a5) [sage] 2018/01/11(木) 19:23:41.06:WJjCr32Q0 エクセルの2003ですが、 並べて比較を使用した際にペアになっているブックと、 そのブックで表示されているシートを取得するには どのように記述すればいいでしょうか。 : デフォルトの名無しさん (アウーイモ MM21-MNwA) [] 2018/01/11(木) 21:16:23.66:JbTpKTF6M 何を言っているのでしょうか? : デフォルトの名無しさん (ワッチョイ 25d2-Un5q) [] 2018/01/11(木) 21:25:37.65:a2sLbYI50 世界教師マイトLーヤ「大暴落は日本からスタート」 ttp://rio2016.5ch.net/test/read.cgi/2chse/1512813686/l50 【マイトLーヤ】 米国債を売れ 【1200兆円】 ttps://medaka.5ch.net/test/read.cgi/eco/1515587891/l50 : デフォルトの名無しさん (ワッチョイ e52b-Yq9l) [sage] 2018/01/12(金) 01:30:55.27:GWvM9lig0 Excel2003はサポート切れてますので Excel2007にのりかえましょう : デフォルトの名無しさん [] 2018/01/12(金) 01:41:04.62 Excel2007ならできるん?(´・ω・`) : デフォルトの名無しさん (ワッチョイ 79af-rWHv) [sage] 2018/01/12(金) 15:56:41.55:kdQVxAch0 0回目って何? : デフォルトの名無しさん (ワッチョイ eab3-0PCX) [sage] 2018/01/12(金) 19:59:42.26:8L8z7qJh0 vbModelessで開いたUserForm上のTextBoxにSetFocusするようInitializeに記述しても効きません これって無理なんですかね? vbModelessを切るとフォーカスがちゃんとTextBoxに移るんですけどね : デフォルトの名無しさん (ワッチョイ 5e9f-QpsD) [sage] 2018/01/12(金) 23:20:03.95:Ln5WwMFr0 初期状態でフォーカスを当てたいなら UserForm.Show vbModeless UserForm.TextBox.SetFocus とフォームを呼んでいるプロシージャ側に書く フォームのイベントならActivateでどうでしょう 毎回フォームがアクティブになるたびフォーカスしちゃうけど Initializeがなぜはしらないのかは知らない : デフォルトの名無しさん (ワッチョイ 5e9f-QpsD) [sage] 2018/01/12(金) 23:44:10.99:Ln5WwMFr0 実験してみたらInitializeは呼ばれてるけど SetFocusだけがだめみたい 他のことは普通にできる なんでしょうね : デフォルトの名無しさん (バットンキン MM7a-Yq9l) [sage] 2018/01/12(金) 23:46:18.93:WKndAwKhM いやExsel 2007もサポート切れてますが : デフォルトの名無しさん (ワッチョイ eab3-0PCX) [sage] 2018/01/13(土) 03:26:50.74:0Hr8k8ED0 自分でもいろいろやってみたんですけどやっぱりダメみたいですね ありがとうございました : デフォルトの名無しさん (ワッチョイ 6a1e-53ns) [sage] 2018/01/13(土) 09:26:06.50:60QkmGs40 試してないけど、プロパティのTabIndexも駄目だったの? : デフォルトの名無しさん (ワッチョイ 118a-zETe) [] 2018/01/13(土) 10:05:22.76:8yN0Kzpj0 ThisWorkbook.Application.Hwndでブックのハンドルを取得して、 SetLayeredWindowAttributesで透過処理をする時、 LWA_ALPHAでは問題ないのに、 LWA_COLORKEYに変えると、なぜかブック全体ではなく、 シート上に最初に配置したコマンドボタンの方に誤爆します。 しかも、自分のPCでは問題ないのに、他人のPCだと誤爆するという意味不明さ。 ハンドルがずれる的なバグでもあるのでしょうか? : デフォルトの名無しさん [] 2018/01/13(土) 10:12:39.30 ウィンドウ表示時にフォーカス当てたいんならTabIndex=0にすればいいんだと思うけど、 あとはフラグを使ってInitialize直後のActivateイベントでフォーカスを当てればいいんじゃね? Private mblnInitFlag As Boolean Private Sub UserForm_Activate() If mblnInitFlag Then TextBox2.SetFocus mblnInitFlag = False End If End Sub Private Sub UserForm_Initialize() mblnInitFlag = True End Sub : デフォルトの名無しさん (ワッチョイ b5b3-DdNP) [sage] 2018/01/13(土) 10:19:25.53:WLDq+ue70 一つ目の表 A,B,C,D,E aaa,bb,cc,00,20 bbb,cc,dd,11,30 二つ目の表 G,H,I,J,K aaa,bb,cc,00,10 bbb,cc,dd,11,10 上の様な表があり、一つ目のABC列と二つ目のGHI列の値が一致すれば、二つ目の表の横にE列からK列の数値を引いた値を表示したい。 一致するデータが無ければ、一致データ無しと表示。 上の表だと2つ目の表の右列に、それぞれ10,20と表示。 データ量は300~800程です。 出来る方、よろしくお願いします。 : デフォルトの名無しさん [] 2018/01/13(土) 10:29:13.82 LWA_COLORKEYは指定した色を透明にするんだから、 その他人のPCでExcelのウィンドウの色が違うんじゃね? 知らんけど : デフォルトの名無しさん (スッップ Sd0a-YX4c) [sage] 2018/01/13(土) 10:31:29.99:uYJANG/vd 既存プログラムで引数が多いやつを減らしたいんだけどどうすればいい? ただグローバル変数使うと他のアプリケーションに影響出るから使えない。 今から構造化やクラスにするのは名前変更が大変そうだし、同じ型でも同じ動作でもないからまとめにくい。 : デフォルトの名無しさん (ワッチョイ 118a-zETe) [] 2018/01/13(土) 10:39:42.82:8yN0Kzpj0 それが、コマンドボタンとシートの色を同じにしても、 コマンドボタンの方だけ透過されるんです。 しかも最初に配置したコマンドボタンだけ。 2個目以降は変わらず。 透過の前後で、ハンドルの値をデバッグプリントしても変化ないですし。 : デフォルトの名無しさん [] 2018/01/13(土) 10:49:24.82 2007以降限定でよければL列に計算式埋め込んじゃうけどね =IF(COUNTIFS($A:$A,$G1,$B:$B,$H1,$C:$C,$I1)>0,SUMIFS($E:$E,$A:$A,$G1,$B:$B,$H1,$C:$C,$I1)-$K1,"一致データ無し") : デフォルトの名無しさん (ワッチョイ 118a-zETe) [] 2018/01/13(土) 11:20:55.87:8yN0Kzpj0 ちなみに、こんなのです。 Sub test(ByVal Flg As Boolean) Dim Hwnd As Long: Hwnd = ThisWorkbook.Application.Hwnd Call SetWindowLong(Hwnd, -20, &H80000) If Flg Then Call SetLayeredWindowAttributes(Hwnd, 0, 200, 1) '←成功 Else Call SetLayeredWindowAttributes(Hwnd, 0, 200, 2) '←コマンドボタンに誤爆 End If End Sub 変えているのは最後の引数だけなんですが。 : デフォルトの名無しさん [] 2018/01/13(土) 11:27:43.02 Sub test1() Dim args(5) As Variant Dim arg1 As String Dim arg2 As Long Dim arg3 As Variant Dim arg4 As Workbook Dim arg5 As Collection arg1 = "test" arg2 = 123 arg3 = ActiveSheet.Cells(1, 1) Set arg4 = ActiveWorkbook Set arg5 = New Collection arg5.Add New DataObject arg5.Item(1).SetText "sample" args(1) = arg1 args(2) = arg2 args(3) = arg3 Set args(4) = arg4 Set args(5) = arg5 Call test2(args) End Sub ‘ ―― Sub test2(ByRef args As Variant) Dim arg1 As String Dim arg2 As Long Dim arg3 As Variant Dim arg4 As Workbook Dim arg5 As Collection arg1 = args(1) arg2 = args(2) arg3 = args(3) Set arg4 = args(4) Set arg5 = args(5) Debug.Print arg1 Debug.Print arg2 Debug.Print arg3 Debug.Print arg4.Name Debug.Print arg5.Item(1).GetText End Sub : デフォルトの名無しさん (ワッチョイ b5b3-DdNP) [sage] 2018/01/13(土) 13:04:46.60:WLDq+ue70 列の挿入や削除の処理があるので、数式だと参照ズレなどが起こってしまうので出来たらVBAで処理したいと考えています。 : 858 (ワッチョイ 1188-/4a5) [sage] 2018/01/13(土) 13:29:13.07:eGapce6A0 Excel2010を用意しました。 エクセルで「Book1」「Book2」「Book3」を開いた状態で、 「Book1」「Book2」を並べて比較している時に、 ペアになっている「Book1」「Book2」を特定する方法、 もしくは「Book1」がActiveWorkbookの時に「Book2」を特定する方法が知りたいのです。 : デフォルトの名無しさん [] 2018/01/13(土) 13:42:21.62 計算式でできればVBAでもそのままできるやん 参照 : デフォルトの名無しさん (ワッチョイ 5e9f-QpsD) [sage] 2018/01/13(土) 13:47:55.56:fyAvIt7m0 並べて比較って 人間が何かを見比べて確認しているわけだから その作業は人間がやる必要ないとおもうので 全部VBAでバックグランドで処理すればいいのではないかと単純に思ってしまう 最後に比較した結果だけ表示してあげる : デフォルトの名無しさん (ワッチョイ 1188-/4a5) [] 2018/01/13(土) 15:21:57.51:eGapce6A0 比較自体は計算式でできますが、 比較する対象を特定する事は計算式でできない気がします。 挿入等によって比較したい箇所がBook1と2で異なる可能性がある為、 事前に比較の起点となる箇所を選択する必要があります。 : デフォルトの名無しさん [] 2018/01/13(土) 16:53:07.70 > 比較する対象を特定する事は計算式でできない 意味分からん =IF(COUNTIFS($A:$A,$G1,$B:$B,$H1,$C:$C,$I1)>0,SUMIFS($E:$E,$A:$A,$G1,$B:$B,$H1,$C:$C,$I1)-$K1,"一致データ無し") この計算式を単純にVBAに置き換えて With Worksheets("Sheet1") If WorksheetFunction.CountIfs(.Range(“A:A”), .Range(“G1”), .Range(“B:B”), .Range(“H1”), .Range(“C:C”), .Range(“I1”)) Then .Range(“L1”) = WorksheetFunction.SumIfs(.Range(“E:E”), .Range(“A:A”), .Range(“G1”), .Range(“B:B”), .Range(“H1”), .Range(“C:C”), .Range(“I1”)) - .Range(“K1”) Else .Range(“L1”) = “一致データ無し” EndIf End With 行列を変数で指定できるように.Rangeを.Columnsや.Cellsに置き換えて数値で指定できるようにして With Worksheets("Sheet1") If WorksheetFunction.CountIfs(.Columns(1), .Cells(1,7), .Columns(2), .Cells(1,8), .Columns(3), .Cells(1,9)) Then .Cells(1,12) = WorksheetFunction.SumIfs(.Columns(5), .Columns(1), .Cells(1,7), .Columns(2), .Cells(1,8), .Columns(3), .Cells(1,9)) - .Cells(1,11) Else .Cells(1,12) = “一致データ無し” EndIf End With あとは必要なところを変数化してループを回せばいいじゃん Dim rngCell As Range Dim lngRow As Long ‘ ループを回すため行番号を変数化 With Worksheets("Sheet1") Set rngCell = .Cells(1, 12) ‘ 表の詳細仕様が分からないのでとりあえずK列が空じゃない限りループ続行 While rngCell.Offset(0, -1) <> “” lngRow = rngCell.Row If WorksheetFunction.CountIfs(.Columns(1), .Cells(lngRow,7), .Columns(2), .Cells(lngRow,8), .Columns(3), .Cells(lngRow,9)) Then rngCell = WorksheetFunction.SumIfs(.Columns(5), .Columns(1), .Cells(lngRow,7), .Columns(2), .Cells(lngRow,8), .Columns(3), .Cells(lngRow,9)) - .Cells(lngRow,11) Else rngCell = “一致データ無し” EndIf Set rngCell = rngCell.Offset(1, 0) ‘ 次の行 Wend End With 列の追加削除があるということだったら列番号も変数化すればいい : デフォルトの名無しさん (ワッチョイ f1f7-GMp/) [] 2018/01/13(土) 17:00:25.96:zzyV/8sb0 初心者で申し訳ありません セルに入力した選手コードを選手名に置換するような動きをさせたいのですがどうするとよいでしょうか 別のシートに選手名簿は用意してありA列に選手コードB列に選手名があります : デフォルトの名無しさん (ワッチョイ eab3-J7fK) [sage] 2018/01/13(土) 17:42:32.57:8qhapkmN0 VBA要らん VLOOKUPでググれ : デフォルトの名無しさん (ワッチョイ eab3-J7fK) [sage] 2018/01/13(土) 17:48:09.64:8qhapkmN0 すまん「置換」を見落とした VBAは要るな WorksheetFunction.VLookup でやるなり、ループで検索するなりやればいい : デフォルトの名無しさん (アークセー Sxbd-IRwv) [sage] 2018/01/13(土) 17:50:29.11:gLbKwyK9x 普通はセルに入力された選手コードをわざわざVBA置換するなんてことはしないで、VLOOKUP等のワークシート関数を書くけどね 置換操作をVBAで書かなきゃいけない理由はあるの? : デフォルトの名無しさん [] 2018/01/13(土) 17:58:56.84 >セルに入力した選手コードを選手名に置換するような動きをさせたい セルに選手コードを入力して、Enterを押した途端に選手名に置き換わるような動きをさせたいんだな?そうなんだな? : デフォルトの名無しさん (アークセー Sxbd-IRwv) [sage] 2018/01/13(土) 18:00:41.47:gLbKwyK9x 検索置換のダイアログでシート内の選手コードを一括変換する、みたいな手作業の業務手順をそのままマクロ化しようとしているのかもしれないし、そういう場合はそもそもシートの設計や業務手順に問題がある場合が多い。 最初にVLOOKUP使えと指摘したあんたの感覚は基本的には正しいと思うぞ。 : デフォルトの名無しさん (ワッチョイ 5e9f-QpsD) [sage] 2018/01/13(土) 18:06:27.84:fyAvIt7m0 単発ならワークシート関数でやった方が簡単 VLOOKUPで変換したのを用意しといてそれをごそっと上書きする 何回もやるなら、上記をマクロにする このくらいならマクロの記録でもいけそう 全部VBA上でやる方法もあるけどビギナーには大変でしょう こんな感じでいいんじゃなかろうか Dim i i = スタートする行 Do While Not Worksheets(1).Cells(i, 1) = "" Worksheets(1).Cells(i, 1) = WorksheetFunction.VLookup _ (Worksheets(1).Cells(i, 1), Worksheets(2).Range("名簿範囲"), 2, 0) i = i + 1 Loop シートのインデックスとかは書き換えてね 意味不明ならマクロ記録かさらなる修行をオススメする : デフォルトの名無しさん (アークセー Sxbd-IRwv) [sage] 2018/01/13(土) 18:07:34.63:gLbKwyK9x VBAに慣れてる人ならセル値の置換と聞いただけでワークシート更新イベントを使いたいのかなって思いがちだよな 俺も最初はそう思ったわ でも質問者の質問内容を推測抜きで素直に読むとそうとは限らないんだよな : デフォルトの名無しさん (ワッチョイ f1f7-GMp/) [] 2018/01/13(土) 18:19:24.76:zzyV/8sb0 トーナメントの結果を入力するようになっているのですが既に報告用ワークシートはあるのですが入力件数が多くなりすぎて最終的にはバーコードによる入力を試みようとしています また、その報告用ワークシートは書式が決まっており並べ替えエラーチェックのマクロが既にあるので行を入れたりして関数をいれる対応ができないという状態です 入力後にマクロ実行用のボタンを押して置換するような想定でした エンターを押した瞬間変わるものでも大丈夫です : デフォルトの名無しさん (ワッチョイ f1f7-GMp/) [] 2018/01/13(土) 18:35:21.45:zzyV/8sb0 ありがとうございます 家に帰り次第試してみます 今まではワークシート内から対戦選手の名前を探してきてコピーアンドペーストで対応していたのですが参加者が年々増えてきて(今年の見込みは約千人位)追い付かなくなってきたために速度向上を目的としています : 858 (ワッチョイ 1188-/4a5) [sage] 2018/01/13(土) 18:44:45.15:eGapce6A0 VBAに記述のあるWorksheets("Sheet1") の箇所を、 並べて比較でペアにしているシートに特定する方法が思いつかないのです。 : デフォルトの名無しさん (アウアウカー Sa55-sebt) [sage] 2018/01/13(土) 19:03:27.44:rZTV+Qsta ファイル名とかシート名がランダムでないなら 固定値じゃないの? どんなファイル名か分からない、シート名か分からないってなら都度入力するしかないな。 データ形式で特定することもできるけど、 無駄な作業にしか思えない。 : デフォルトの名無しさん (アークセー Sxbd-IRwv) [sage] 2018/01/13(土) 19:18:42.64:gLbKwyK9x こんな感じならどうかな 以下は、実行すると報告用シート内に含まれる選手コード全てを一気に置換する 複数の選手コードを含む場合も一発で置換できるはず 名簿にはコードの欄が空白の行がなく、名簿シートのA2セル以下に選手コードが入力されているものと仮定してる(A1は表見出し) セル値の一部が選手コードと一致する場合も置換されてしまうので、コードのみが入力されているセルの値だけを確実に置換したい場合、Replaceメソッドの引数のLookAt:=xlPart をLookAt:=xlWholeに変更してくれ Sub ReplaceCode Dim sh_list As WorkSheet '選手名簿シート Dim sh_report As WorkSheet '報告用シート Dim i As Long Set sh_list = WorkSheets("選手名簿シート") Set sh_report = WorkSheets("報告用シート") For i = 2 To sh_list.Range("A2").End("xlDown").Row sh_report.Cells.Replace What:=sh_list.Cells(i, 1).Value, Replacement:=sh_list.Cells(i, 2).Value, LookAt:=xlPart Next i End Sub : 858 (ワッチョイ 1188-/4a5) [sage] 2018/01/13(土) 19:32:04.47:eGapce6A0 ファイルのフォーマットが複数あるので、 事前にファイル名とシート名を規定できないのです。 なので、せめてペアにしたファイル同士が特定できれば、 ファイルとシートを選択する手間が省けると思ったのですが・・・ 3つ以上開けなくなるけど、workbooksからマクロブックを除外した先頭2つを比較する方法で考えてみます。 : デフォルトの名無しさん (ワッチョイ 66fa-53ns) [sage] 2018/01/13(土) 19:36:48.93:6HVsHBKb0 それは運用を変えよう。機械的に処理するなら人間側が合わせる必要がある。 手動で命名規則に沿うか、命名自体を自動的にして人間が意識しないようにするか。 : デフォルトの名無しさん (ワッチョイ b5b3-6BZu) [sage] 2018/01/13(土) 23:03:28.12:aJN0Dby50 エクセル2010でCSVファイルを開いた場合、 UTF8やshiftjisを自動で判定して表示してくれますが、 この時に判定された文字コードを取得する方法はありますか。 用途は、外部データの取り込みでCSVを開きなおすための文字コードの特定です。 : デフォルトの名無しさん (ワッチョイ 8903-YNmt) [] 2018/01/13(土) 23:14:29.83:odSwvUdp0 application.nkf : デフォルトの名無しさん (ワッチョイ b5b3-6BZu) [sage] 2018/01/13(土) 23:28:32.80:aJN0Dby50 ありがとうございます。 試してみます。 : デフォルトの名無しさん (ワッチョイ e52b-Yq9l) [sage] 2018/01/14(日) 06:58:25.18:UVUQYwWb0 いいってことよ(´・ω・`)b : デフォルトの名無しさん (ワッチョイ f1f7-GMp/) [] 2018/01/15(月) 01:08:16.65:Zqan8uZj0 実行時エラー13 型が一致しませんとなっていて For~の行でエラーを出していて止まるみたいです あと報告シートが選手の強さ別に複数に分かれているのですが今選手コードの入力したシート(つまりいま開いているマクロ実行用のボタンを押したシート)を処理したいという場合どうするとよいのか教えていただけると助かります : 897 (アークセー Sxbd-IRwv) [sage] 2018/01/15(月) 01:48:08.96:ubg4QImpx エラーの出たコードを転載して見せてもらえませんか?こちらの環境ではうまく動いているんですが、私がコードを転載したときにミスをしたかもしれないので それから、コードはボタンマクロ(ボタン名_Clickのような名前のプロシージャ)として各シートのシートモジュールに書いているんでしょうか? : デフォルトの名無しさん (ワッチョイ f1f7-lXUw) [] 2018/01/15(月) 11:28:57.27:thpu0oBS0 Sub ReplaceCode() Dim sh_list As Worksheet '選手名簿シート Dim sh_report As Worksheet '報告用シート Dim i As Long Set sh_list = Worksheets("選手名簿") Set sh_report = Worksheets("対戦結果表_A級") For i = 2 To sh_list.Range("A2").End("xlDown").Row sh_report.Cells.Replace What:=sh_list.Cells(i, 1).Value, Replacement:=sh_list.Cells(i, 2).Value, LookAt:=xlPart Next i End Sub シート作成用のコードが既にあるのですがその中のコードを流用して各シートに実行用のボタンを置く計画でした ActiveSheet.Buttons.Add(2, 1.5, 125, 18.75).Select Selection.OnAction = "CSV_SAVE" Selection.Characters.Text = Worksheets(2).Cells(1, 1).Text & "級のCSVファイル作成" With Selection.Characters(Start:=1, Length:=15).Font .Name = "MS Pゴシック" .FontStyle = "標準" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone End With これのCSV_SAVEをReplaceCodeにしてボタンの名前と場所をかえるつもりでしたがあまりよくない方法なのでしょうか 必要であれば既にあるコードを出しますので教えてください : デフォルトの名無しさん (ワッチョイ 1188-/4a5) [] 2018/01/15(月) 11:58:16.00:Vljo7f2q0 application.nkf オブジェクトが見つかりませんでした。 下記のapplicationオブジェクト内にも、nkfプロパティが見つかりません。 ttps://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/application-object-excel オブジェクトの参照方法が違うのでしょうか。 : 897 (アークセー Sxbd-IRwv) [sage] 2018/01/15(月) 23:02:33.00:JvjYqsKWx 申し訳ない、Forの行でEnd("xlDown")となってるの、自分の転記ミスでした エラーの原因もこれでしょう 二重引用符なしでEnd(xlDown)と書き直して動かしてみてください : デフォルトの名無しさん (スッップ Sd0a-YX4c) [sage] 2018/01/16(火) 12:17:16.43:SelV7zwId 質問です。 ソルバーで普通は目的セルをrangeなどで指定しますが、シートのセルにアクセスせず、vba内の変数を直接ソルバーにかけてvba内だけで完結したいのですが、方法あるでしょうか? : デフォルトの名無しさん (ワッチョイ f1f7-GMp/) [] 2018/01/17(水) 02:18:24.01:x8yvrTsd0 うまくいきました ありがとうごさいます : デフォルトの名無しさん (ワッチョイ 239b-Q7o0) [sage] 2018/01/20(土) 12:24:27.92:sSjH/Vu40 セルのA列にある文字列をコンボboxにaddですべて入れた後に、一文字入力する度に候補が絞られてくって出来ます? コード教えてもらえないですか? : デフォルトの名無しさん (オッペケ Srb1-WK0C) [sage] 2018/01/20(土) 12:31:05.83:TVDu7Qf0r 一文字入力する度にコンボボックスの候補を絞ればいいんとちゃうか? 知らんけど : デフォルトの名無しさん (ワッチョイ c51a-3Ttg) [sage] 2018/01/20(土) 13:28:17.12:uuergXrf0 社内に部品表があって、重複している名前を省いて部品種類一覧の表を作ろうと思ってます。 ・ネジM5 ・ネジM5 ・ナットM5 ・ナットM5 ↓ ・ネジM5 ・ナットM5 というイメージです。 自分なりに下記のマクロを組んでみました。 Dim row As Long, col As Long, D As Range col = 1 row = 1 Do Until Cells(row, col) = "" If Not Cells(row, col) = Cells(row + 1, col) Then If D Is Nothing Then Set D = Cells(row, col) Else Set D = Union(D, Cells(row, col)) End If End If row = row + 1 Loop この後レンジDをコピペするマクロです。 部品の種類が100とか200なら動いてくれますが、本来20,000件超の部品の種類があり、こちらを処理するとフリーズします。 デバックのウィンドウはユニオンのところを指定してきてるんですが、ユニオンにはまとめられる量の限界などがあるのでしょうか? : デフォルトの名無しさん (ワッチョイ 0bfa-weOF) [sage] 2018/01/20(土) 13:33:34.73:wJgnfOTG0 Accessでやれ。 : デフォルトの名無しさん (ワッチョイ 23b3-3fO/) [sage] 2018/01/20(土) 13:41:46.63:CFAgCrzx0 ソートして重複を削除じゃダメなのか? : デフォルトの名無しさん (ワッチョイ ddc3-9sdm) [] 2018/01/20(土) 15:03:19.74:Fb/tMd6M0 Excel VBAでやってもいいけど、RANGEオブジェクトに溜め込むやり方よりは、素直に別シートに値をコピー、さらにそれを検索して別の値が出てきたら別シートにコピーでいいんじゃないのか? そもそもExcelのフィルタ関連の機能でもできるからVBAを使う理由がわからない。 : デフォルトの名無しさん (ササクッテロロ Spb1-TYcc) [sage] 2018/01/20(土) 15:06:48.01:iefRLv2cp dictionaryとかでだめかな? : デフォルトの名無しさん (ワッチョイ db7f-Ye64) [] 2018/01/20(土) 17:40:00.19:91x3kJT10 DBMSがコンソールなんかに返した結果を Excelセルに上手く貼り付ける方法ってある? : デフォルトの名無しさん (ワッチョイ 0bfa-weOF) [sage] 2018/01/20(土) 19:41:33.47:wJgnfOTG0 詳細忘れたけど代入する事で、そのまま貼り付けられるメソッドがあったはず。 : デフォルトの名無しさん (ワッチョイ 1d03-Qz07) [] 2018/01/20(土) 20:44:55.78:Y9eKqT4m0 多くは語らんけどある意味エスパーと言っておこうw : デフォルトの名無しさん (ワッチョイ db9f-GP+B) [sage] 2018/01/21(日) 13:18:30.88:+2jqUeqC0 ADOなら一瞬で終わる いろいろ突っ込まれているように、別の方法のが簡単だと思うけど シート名やら列名は読みかえてね Dim adocon As Object, adors As Object Set adocon = CreateObject("ADODB.Connection") Set adors = CreateObject("ADODB.Recordset") With adocon .Provider = "Microsoft.ACE.OLEDB.12.0" .Properties("Extended Properties") = "Excel 12.0" .Open ThisWorkbook.Path & "\" & ThisWorkbook.Name End With Set adors = adocon.Execute("SELECT DISTINCT 部品名 FROM [部品表$]") Worksheets("部品種類一覧").Range("a1").CopyFromRecordset adors adocon.Close : デフォルトの名無しさん (ワッチョイ 239b-Q7o0) [sage] 2018/01/21(日) 15:03:53.81:pRI5Eg/X0 だれかこれわかる人いません? : デフォルトの名無しさん (ドコグロ MM99-vVh4) [sage] 2018/01/21(日) 16:45:39.61:WhYlNzfJM 下手にマクロ組むよりExcelの標準機能の重複削除を使え。 VBAとは違って並列処理できるから速度が段違い : デフォルトの名無しさん (アウアウイー Sa31-Y7DI) [sage] 2018/01/21(日) 18:35:28.14:7nwc0luUa 重複なしリストはいろいろやり方あるけど、標準機能使うかadoでやるかがスマートだろうね dictionaryもありだけど、fsoのやつはなんか取り回しがいまいちじゃね : デフォルトの名無しさん (ワッチョイ 1d03-Qz07) [] 2018/01/21(日) 18:40:31.69:nVuQLEta0 ここ初心者スレかと思ってスレタイ見なおしてしまったわw オレ以外初心者しかおらんやんw : デフォルトの名無しさん (ワッチョイ 0bfa-weOF) [sage] 2018/01/21(日) 18:41:57.84:EcNkRoqM0 メゾット君また寂しくなって来ちゃったのか : デフォルトの名無しさん (アウアウイー Sa31-Y7DI) [sage] 2018/01/21(日) 18:57:02.81:7nwc0luUa .netframeworkのlistって重複削除機能なかったっけ? : デフォルトの名無しさん (ワッチョイ db9f-GP+B) [sage] 2018/01/21(日) 20:07:47.89:+2jqUeqC0 リストにあるかないかはわかるみたい これなら配列に突っ込んで総当たりしていくのと変わらなそう 読みやすくはなるけど Dim partsList As Object Set partsList = CreateObject("System.Collections.ArrayList") Dim partsData Set partsData = Range("データの列") Dim parts For Each parts In partsData If Not partsList.Contains(parts.Value) Then partsList.Add parts.Value End If Next 出力処理省略 : デフォルトの名無しさん (ワッチョイ 23b3-3fO/) [sage] 2018/01/21(日) 20:16:12.20:rQmHQ7OM0 > dictionaryもありだけど、fsoのやつはなんか取り回しがいまいちじゃね 意味不明 Dictionaryとfsoになんの関係があるんだ? : デフォルトの名無しさん (ワッチョイ 8df7-f5OR) [sage] 2018/01/21(日) 21:00:25.33:xouI7cQH0 とりま、Union関数は遅いから絶対に使うな、それだけ セル数がちょっと増えると簡単にフリーズする 普通に配列とかに入れてった方がいい : デフォルトの名無しさん (ワッチョイ 1d03-Qz07) [] 2018/01/21(日) 21:12:55.02:nVuQLEta0 とりま、なんでいきなりそれを言いだしたのかよく分からんが 遅いのはお前のプログラムが下手糞なだけ 脈絡のない下手糞自慢ごくろうさん : デフォルトの名無しさん (ワッチョイ 0b80-H9dj) [sage] 2018/01/21(日) 21:38:18.50:Ycn/1JW20 require 'set' File.readlines("ファイル名").to_set.map { |item| puts item } Ruby の集合を使うと、以下のような行区切りのファイルを、 あ い あ あ う い 以下のような結果にできる。 ただし、集合にはデフォルトで、順番は無いので、 順番が必要なら、お好みの基準でソートする あ い う : デフォルトの名無しさん (ワッチョイ 0bfa-weOF) [sage] 2018/01/21(日) 21:51:29.18:EcNkRoqM0 毎度思うんだが、Rubyって他言語のスレにまで布教しに来なきゃならないほど不人気なのか? : デフォルトの名無しさん (ワッチョイ 0b80-H9dj) [sage] 2018/01/21(日) 22:19:18.53:Ycn/1JW20 Ruby だと、テキスト処理が、めちゃめちゃ簡単に作れる 他の言語のように、悪戦苦闘しない : デフォルトの名無しさん (ワッチョイ db9f-GP+B) [sage] 2018/01/21(日) 22:23:07.58:+2jqUeqC0 どうせなら引っ越し準備も兼ねてPythonにしようゼ : デフォルトの名無しさん (スプッッ Sd13-f5OR) [sage] 2018/01/21(日) 23:23:35.81:ppfN03med 単純に2万個のセルをUnionするだけで1時間かかる Sub aaa() Debug.Print Time Dim u As Range Set u = Cells(1, 1) For r = 3 To 40000 Step 2 Set u = Union(u, Cells(r, 1)) Next Debug.Print Time End Sub : デフォルトの名無しさん (ワッチョイ 0b80-H9dj) [sage] 2018/01/21(日) 23:45:19.36:Ycn/1JW20 2万個のデータは、テキストデータだけなら、1MB ぐらいだろ のRuby でのテキスト処理なら、1秒ぐらいじゃないか? : デフォルトの名無しさん (ワッチョイ 2323-16v+) [sage] 2018/01/22(月) 00:04:49.43:R+7srG110 空気読んでね ここはテキスト処理の質問スレじゃなくて Excel VBAの質問スレだから : デフォルトの名無しさん (ワッチョイ 0b80-H9dj) [sage] 2018/01/22(月) 01:20:01.78:pYe1Cwj70 そんなに時間が掛かるのなら、一旦データをエクスポートして、 データをテキスト処理してから、インポートして戻せば? たかが、2万個のデータで、1時間は現実的ではない そんなに時間が掛かっても、どうしても、VBA でやりたいのか? : デフォルトの名無しさん (ワッチョイ 0bfa-weOF) [sage] 2018/01/22(月) 01:43:29.00:zmIcszTc0 あくまでUnionを使った場合であって高速に処理する方法はいくらでもあるからなぁ。 それに仕事でVBA使う環境だと他社との協調も考えなきゃいけないからRubyインストールする方がよっぽど非現実的だし。 まぁ、たぶんおちょくってるつもりなんだろうけど、そもそもVBA以外の環境がないって前提のスレだから、 Rubyマンの煽りが煽りになっていないっていう・・・。 : デフォルトの名無しさん (ワッチョイ 8df7-f5OR) [sage] 2018/01/22(月) 04:08:31.22:Xp9Ai2fT0 重複の削除はワークシートでやった方がてっとり早いと思う : デフォルトの名無しさん (ワッチョイ 3deb-Qbx4) [sage] 2018/01/22(月) 04:38:17.99:AE7SVx7N0 > そもそもVBA以外の環境がないって前提のスレだから そんな前提で質問に来る人もいるだろうけど、 「最適解」を求めている人が、とりあえずVBAだとどうなるか、と思って質問する場合もあるでしょ だから、質問者が「全体にVBA以外はダメ」って制限をかけていない限りは、 上でも、ACCESSを進めている人もいたけど、実用面から考えた回答も質問者の利益になると思うんだけど (質問者がそう思っていても、何も知らないからそう思ってるってパターンすらあり得るかな) : デフォルトの名無しさん (ワッチョイ 0bfa-weOF) [sage] 2018/01/22(月) 05:56:27.49:zmIcszTc0 Excel VBA質問スレでの「実用面」は、一般的な企業向けWindows PC(Office製品入り)で出来る事に制限されると思うけど。 それに質問者が明言した事以外は「出来ない」と考えておくのが常識だと思うね。 だいたい他の言語に興味があるなら、その言語のスレで質問すりゃいいわけだし、 どんな自己弁護をしたところで特定言語のスレで他言語の話をする理由にはならないよ。 せめて質問者に対してVBA以外の開発環境は無いか訊ね、Rubyが使えるという自発的な回答が得られた時に初めて、 Rubyスレに誘導して、そちらで話を展開すべきだね。 : デフォルトの名無しさん (ワッチョイ 3deb-Qbx4) [sage] 2018/01/22(月) 08:37:35.39:AE7SVx7N0 > それに質問者が明言した事以外は「出来ない」と考えておくのが常識だと思うね。 リアルでも、相手に聞きもせずに勝手にそんな縛りをかけて要件定義する人はいないと思うよ > せめて質問者に対してVBA以外の開発環境は無いか訊ね、Rubyが使えるという自発的な回答が得られた時に初めて、 > Rubyスレに誘導して、そちらで話を展開すべきだね。 環境を聞くのは勿論ありだが、「○○だとより簡単にできるよ」ってこちらから言う事に何の問題があるのか? 今ある環境内で必ず実現する必要があるなら別だが、そうでない場合もよくあることでしょ ま、いずれにせよ、何も聞かないうちに勝手に「○○に違いない」って決めつけるのは、 要件定義では一番しちゃいけないことだよ : デフォルトの名無しさん (ワッチョイ 0bfa-weOF) [sage] 2018/01/22(月) 10:06:54.55:zmIcszTc0 仕事している風を装いたいんだろうけど、明らかに経験が無いの丸出しなんだよな・・・。 そもそもVBAスレでRubyの話を出してくる事自体が問題なんだよ。 君が問題になっているのは要件定義の話ではなく開発環境の話だ。 明確な線引きをするなら、このスレではxlsmに記録し、特別な準備なしに実行できるものでなければ、何であれ許容範囲外だ。 : デフォルトの名無しさん (オイコラミネオ MMeb-pCzv) [sage] 2018/01/22(月) 10:12:50.46:JFwvghX1M またそうやって明文化されてもいない自分ルールを展開していくー : デフォルトの名無しさん (ワッチョイ 0bfa-weOF) [sage] 2018/01/22(月) 10:23:32.81:zmIcszTc0 明文化されてはいないけど、過去から今までのスレでの反応を見る限りは、 だいたいxlsmファイル単体でマクロの実行が補完できるかどうかが拒絶反応の出る出ないを分けてるよ。 ただ個別にマクロが記録された二つ以上のファイルを連携させる場合の話もあるから「xlsmに記録し、準備なしに実行可能な」と定義しただけ。 押しつけるつもりはないけど、この定義で問題が無ければテンプレに加えてキチ避けしてほしいくらい。 : デフォルトの名無しさん (アウアウイー Sa31-Y7DI) [sage] 2018/01/22(月) 11:30:49.09:r0T2WJT6a ごめんscriptingRuntimeのやつ、の間違いだ : デフォルトの名無しさん (スッップ Sd43-6QJI) [sage] 2018/01/22(月) 11:33:07.33:y0jssaARd VBAをメインとして他言語も補助的に使う。 それなりにあると思う : デフォルトの名無しさん (ワッチョイ 23b3-x16F) [sage] 2018/01/22(月) 15:12:56.07:EwN8a0pa0 同じ現象が起きるようにできるだけ簡単なコードを用意しました まっさらなxlsmにUserForm1を挿入し、TextBox1とTextBox2を横に並べます UserForm1モジュールに下記のようにコードを記述します Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 39 Then With TextBox2 .SetFocus .SelStart = 0 End With End If End Sub UserForm1を呼んだ後、TextBox2にabと記入します このとき、TextBox1からTextBox2に矢印キー右でうつろうとするとaの前ではなくaとbの間にカーソルが来てしまいます。 どうすればaの前にカーソルが来るようになりますか?もちろんabは例示にすぎずいろんな文字列が入ります よろしくお願いします : デフォルトの名無しさん (ワッチョイ 23b3-x16F) [sage] 2018/01/22(月) 15:25:33.05:EwN8a0pa0 ですけど、KeyCode=40、つまり矢印キー下にセッティングして TextBox1から2に移ると頭にカーソルきますね ということは、入力した矢印キー右がTextBox2に移ったあとも生きててその影響が出てるってことですかね まぁ原因分かっても解決方法が分からないのですが : デフォルトの名無しさん (ワッチョイ 8d26-+VSC) [sage] 2018/01/22(月) 16:37:43.27:DgxtyBXU0 試していないけれど With TextBox2 の前に KeyCode = 0 を入れたらどう : デフォルトの名無しさん (ドコグロ MM13-3fO/) [sage] 2018/01/22(月) 17:07:09.72:+/nnDvsjM VBAでは書きにくい or 実行速度がめちゃ遅い かつ その言語なら簡単に書ける or 実行速度が速い ならありうると思う なのでAccessとかADOならまだわかるけどRubyはないな : デフォルトの名無しさん (ワッチョイ 23b3-x16F) [sage] 2018/01/22(月) 22:49:33.42:EwN8a0pa0 しゅごい・・・できました ありがとうございました : デフォルトの名無しさん (ワッチョイ a302-GP+B) [sage] 2018/01/24(水) 10:46:16.37:QE61Ho6h0 。と。の間に入ってる文字を全部同じ文字に置換したい場合ってどうすればいいでしょうか? 。。 →。ccc。 。akok。 →。ccc。 。3293i9ia。 →。ccc。 みたいな感じです : デフォルトの名無しさん (ワッチョイ a302-GP+B) [sage] 2018/01/24(水) 11:16:56.30:QE61Ho6h0 すいません数式の中の。と。の間の文字を置換でした : デフォルトの名無しさん (ワッチョイ 25b3-Y7DI) [sage] 2018/01/24(水) 12:30:55.33:4OtF4psx0 数式の中のってのがよくわかんないから実際の数式を書いてくれ : デフォルトの名無しさん (ワッチョイ a302-GP+B) [sage] 2018/01/24(水) 13:09:34.71:QE61Ho6h0 こういう事がやりたいって感じです わかりづらくてすいません =123456789(この9桁の数字はランダム) → =123ccc789 =123456789(この9桁の数字はランダム) → =12ccc3456789 : デフォルトの名無しさん (スッップ Sd43-6QJI) [sage] 2018/01/24(水) 13:24:33.86:96uZKYcfd 。の話はどこへいったんだ? : デフォルトの名無しさん (ワッチョイ a302-GP+B) [sage] 2018/01/24(水) 13:52:49.81:QE61Ho6h0 いやこっちの方がわかりやすいかなとw : デフォルトの名無しさん (ワッチョイ 5b7f-pQa0) [] 2018/01/24(水) 14:37:17.59:626EYBnb0 2週間くらい前から、 フォームコントロールのボタンを配置すると エクセルファイルの起動が いつもの起動時間の5倍くらいかかる様になり困っています。 ちなみに、新規のファイルでも同じ現象になり、 他のパソコンでも同じ現象になっています。 どなたか、解決方法を知らないでしょうか? 今使っている環境は Windows 10、バージョン 1709 Excel2016 バージョン 1712 です。 : デフォルトの名無しさん (オイコラミネオ MMeb-pCzv) [sage] 2018/01/24(水) 14:47:11.88:LHEOU22dM 草生やしてんじゃねえよ真面目に質問しろ : デフォルトの名無しさん (ワッチョイ bdaf-nLVR) [sage] 2018/01/24(水) 16:00:42.34:eVK1iV6m0 w : デフォルトの名無しさん (ワッチョイ a302-GP+B) [sage] 2018/01/24(水) 17:24:26.92:QE61Ho6h0 なんでwなんて打ったのか・・・反省してます : デフォルトの名無しさん (ドコグロ MMa1-3fO/) [sage] 2018/01/24(水) 17:48:11.23:cTEKAhE2M VBA 正規表現 置換 でググれ : デフォルトの名無しさん (ワッチョイ 25b3-Y7DI) [sage] 2018/01/24(水) 19:49:39.94:4OtF4psx0 みんなこれでわかるの? 上と下に規則性があるように見えないんだが 上は値を置き換えてて、下は挿入してるよね : デフォルトの名無しさん (ブーイモ MMe9-iX8K) [sage] 2018/01/24(水) 20:02:49.35:XHxrtrwiM わかりません : デフォルトの名無しさん (アウアウカー Sa21-k/NO) [sage] 2018/01/24(水) 21:10:53.71:6b5evSsja そのテキストファイルがCSVファイルみたいにカンマ区切りで ヘッダとして項目名が付いてて項目名に重複が無ければ そのファイルにSQLぶん投げて結果セット取ってこれるんだけどなぁ : デフォルトの名無しさん [] 2018/01/24(水) 21:14:29.60 地道にループぶん回してFomulaLocalとInStrとMidしてちょ : デフォルトの名無しさん (ワッチョイ bdd8-k/NO) [sage] 2018/01/24(水) 21:29:25.29:l13g0WQj0 いや、ループするにしても VbScriptingDictionary使うかCollection使って 値をキーとして登録して 同じキーがあれば無視、無ければ登録追加で 最後にその取っておいた内容を 展開するようにすればそこそこのレスポンスで 行けるんじゃないかな。 SQLで行けるならそれが最速だとは思うけど。 : デフォルトの名無しさん (ワッチョイ b39d-4mzi) [sage] 2018/01/25(木) 19:41:38.87:x0ph6Erf0 ちゃんとしたDBMSならともかく、エクセル表にSQL投げて実行速度が速いとか考えられんけど : デフォルトの名無しさん (ワッチョイ 969f-rgA5) [sage] 2018/01/25(木) 21:14:11.87:xVw6nJl50 ADOだとそれなりに早いイメージなんだけど 実際はどうなのかね 誰か検証していてもよさそうだが : デフォルトの名無しさん (ワッチョイ aefa-W10G) [sage] 2018/01/25(木) 22:04:13.28:BYFi0PM80 一項目だけの比較なんかだとVBAでやるのと変わらないけど、色々と条件が増えていくとSQLの方が速度が落ちにくい。 あと他の誰かが見ることも考慮すると、SQLで見えるようにしておいた方が分かりやすい。 ただExcelでSQLというのは絶望的に使いづらい。 : デフォルトの名無しさん (ワッチョイ bae7-Pdni) [sage] 2018/01/25(木) 22:28:41.91:3kW0jqmr0 UPDATEはできるけどDELETEができないんだっけ? : デフォルトの名無しさん (ワッチョイ b703-jHVE) [sage] 2018/01/25(木) 22:46:48.37:2HN+h3+60 できなくてもやらなきゃいけない時があるんだよ男にはな : デフォルトの名無しさん (アウアウイー Saeb-ZpjV) [sage] 2018/01/26(金) 10:16:15.47:i1V2CYFLa エクセルのテーブル機能ってどうなんよ あんまり使わんから馴染みないんだけどsql使いやすくなったりせんの? : デフォルトの名無しさん (ワッチョイ efb2-Tfxv) [sage] 2018/01/26(金) 14:00:22.47:ewTTza6/0 猫もだよ 穴に逃げた虫を懸命に取ろうとしている : デフォルトの名無しさん (ワッチョイ 87d8-9OBP) [sage] 2018/01/26(金) 19:52:38.86:uoysLyn50 こういうのを見ると 早くPython導入して欲しいって思うよな アンケート取られてたからちょっと入門見たけど結構面白いわアレ こういった集約的なことに関してもずっと楽に作れそう VBやC#でも後の方で覚えることになるラムダ式や イテレーターとかごく基本的な当たり前のこととして いきなり最初から出てくるし : デフォルトの名無しさん (ワッチョイ b703-rERY) [] 2018/01/26(金) 20:26:28.69:Vo+OzJVu0 VBAですら暴走しまくりのお前らにpythonなんか与えたら社会を困らす力作マクロ()がますます増えちゃうじゃんかw : デフォルトの名無しさん (ワッチョイ aefa-W10G) [sage] 2018/01/26(金) 20:36:36.35:VXa7znFt0 コードをまともに読み書き出来ないメゾット君が心配するような事でもないけどな : デフォルトの名無しさん (スッップ Sdda-mh8q) [sage] 2018/01/26(金) 22:00:17.36:mlDN6tJ0d VBAを廃止なんてできるわけないからPythonと入り乱れたプログラムになるんだろーか? : デフォルトの名無しさん (ワッチョイ e3e5-WVzr) [] 2018/01/26(金) 22:15:41.07:pXxYwYu40 職場の環境じゃVBAくらいしか選択肢がない : デフォルトの名無しさん (ワッチョイ bae7-Pdni) [sage] 2018/01/26(金) 22:23:52.83:Ji/nweCn0 ttps://forest.watch.impress.co.jp/docs/serial/yajiuma/1097447.html : デフォルトの名無しさん (ワッチョイ aefa-W10G) [sage] 2018/01/26(金) 22:40:51.06:VXa7znFt0 影響するのは最新バージョンだけだろうし、Excel版Pythonの初期バージョンだと使い物にならなかったり参考文献が少なかったりの問題で、 本格的に使われるようになるにしても五年以上かかりそう。そしてそこからさらに数年経たないと、そのバージョン使う会社が出てこなさそう。 っていうか今までもVBAをVB.Netへ移行させようとして失敗してたらしいし、AIブームに乗じた一時的なもんで実現しないんじゃないの。 : デフォルトの名無しさん [] 2018/01/27(土) 00:23:34.40 Pythonって起動にめっちゃ時間がかかるから(5秒くらい) 普段使いのちょっとしたツール作るには使い物にならないという印象 : デフォルトの名無しさん (ワッチョイ 87d8-9OBP) [sage] 2018/01/27(土) 00:36:59.48:Xe+uGT7T0 多分Python載ったとしてもしばらくはVBAと共存だろうとは思う。 勉強嫌いな爺さん達にはPythonが来るのは驚異以外の何物でもないかも知れないけど 導入されたら少なからず徐々に普及し始める。 なぁに、EXCELの中のコンパクトに纏まった世界の話だし 勉強するにはうってつけだと思う。 少なくとも今後のVBAよりは次に繋がるよ。 : デフォルトの名無しさん (アウアウカー Sa33-9OBP) [sage] 2018/01/27(土) 01:00:30.81:/Onm91iZa 今まで言語を変えるような具体的な話は出てなかったからなぁ まさかObject指向言語じゃなくていきなり関数型言語が来るとはなぁ
凡例:
レス番
100 (赤) → 2つ以上レスが付いている
100 (紫) → 1つ以上レスが付いている
名前
名無しさん (青) → sage のレス
名無しさん (緑) → age のレス
ID
ID:xxxxxxx (赤) → 発言が3つ以上のID
ID:xxxxxxx (青) → 発言が2つ以上のID
このページは2ch勢いランキング が作成したアーカイブです。削除についてはこちら 。