Excel VBA 質問スレ Part23

1 名前：既定のプロパティさん mailto:sage [2012/01/29(日) 00:05:13.16 ] 01 pc11.2ch.net/test/read.cgi/tech/1054356121/ 02 pc11.2ch.net/test/read.cgi/tech/1168308855/ 03 pc11.2ch.net/test/read.cgi/tech/1180192018/ 04 pc11.2ch.net/test/read.cgi/tech/1189814602/ 05 pc11.2ch.net/test/read.cgi/tech/1197448064/ 06 pc11.2ch.net/test/read.cgi/tech/1205231499/ 07 pc11.2ch.net/test/read.cgi/tech/1212587819/ 08 pc11.2ch.net/test/read.cgi/tech/1219673793/ 09 pc11.2ch.net/test/read.cgi/tech/1228372971/ 10 pc12.2ch.net/test/read.cgi/tech/1235332603/ 11 pc12.2ch.net/test/read.cgi/tech/1241885130/ 12 pc12.2ch.net/test/read.cgi/tech/1247566074/ 13 pc12.2ch.net/test/read.cgi/tech/1254281104/ 14 pc12.2ch.net/test/read.cgi/tech/1262748898/ 15 pc12.2ch.net/test/read.cgi/tech/1271261239/ 16 hibari.2ch.net/test/read.cgi/tech/1280045912/ 17 hibari.2ch.net/test/read.cgi/tech/1289182437/ 18 hibari.2ch.net/test/read.cgi/tech/1298240666/ 19 hibari.2ch.net/test/read.cgi/tech/1305754555/ 20 hibari.2ch.net/test/read.cgi/tech/1312435844/ 21 hibari.2ch.net/test/read.cgi/tech/1316931607/ 前スレ： Excel VBA 質問スレ Part22 toro.2ch.net/test/read.cgi/tech/1322400978/ 878 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/02(月) 20:51:58.76 ] >>876 OutlookのバージョンとExeclのバージョンを教えて 879 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/02(月) 21:14:12.72 ] ともに2007です　>>878 880 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/03(火) 01:39:29.67 ] >>876 EXCELまったく関係ないのはスレ違いなんだが outlook テンプレート 日付 でググって最初のページでも見てろ 881 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/03(火) 11:47:57.65 ] どう考えてもこのスレに辿り着くより解法が載ってるサイトに辿り着く方が早いと思うんだけど 検索サイトを一体どんな風に利用しているんだろう？ 882 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/03(火) 19:39:23.25 ] >>875 WithEventsで宣言した変数に参照代入する 883 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/04(水) 17:49:54.34 ] A3の範囲に入っている数字が読めるように 列幅を大きくするとOKで 列幅を小さくして数字が##のようにすると Set C がNothing になってしまう、いい方法ありますか A2 = "gg50": A3 = "gg11:gg45" n = sh4.Range(A2) Set C = sh4.Range(A3).Find(Val(n), LookIn:=xlValues) 884 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/04(水) 18:07:52.43 ] >>883 検索するときに列幅を広げて 検索が終わったら列幅を元に戻す 885 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/04(水) 18:14:12.91 ] わかりました、そーします ありがとう 886 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/05(木) 08:36:11.39 ] だれかSQLでdecodeに当たるような関数をVBAで教えてくれ 調べてもreplaceしか出てこないんだ 内部処理で文字列を違う文字列として扱ったりしたいんだ 887 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/05(木) 10:29:49.84 ] >>886 IIf関数かIf...Then...Else ステートメント ちなみに標準SQLにはDECODE関数なんて無い 888 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/05(木) 11:11:06.09 ] >>886 Choose officetanaka.net/excel/vba/function/Choose.htm 889 名前：886 mailto:sage [2012/04/05(木) 23:16:08.15 ] >>887 >>888 さんくす！iPhoneからだと規制されてて書き込めなかった 今日、現場の作業で活用させて頂きました 890 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/06(金) 04:53:41.84 ] オフィス田中はNGにしてほしい 891 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/06(金) 07:29:19.45 ] >>890 なんで? 892 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/06(金) 07:32:09.99 ] >>891 そんな有名なところだれでも知ってるから すでに読んでる 893 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/06(金) 08:20:34.61 ] ↑ 自分が知ってることは他人も全部知ってるべきだと思ってる池沼 894 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/06(金) 10:04:50.92 ] まぁ>>888みたいにリファレンスとして貼るならMSのサイトを貼れよとは思う 895 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/06(金) 19:27:40.21 ] >>892 何が「誰でも知っている」だ。 俺はそんなサイト知らねえぞ。 お前のためにあるスレじゃねえから 自己厨レスはやめとけ。 896 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/06(金) 19:30:55.02 ] >>894 マイクロソフトみたいな有名なところだれでも知ってるから すでに読んでる 897 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/07(土) 00:22:42.19 ] セル範囲を飛び越えて選択したいのですが Range("A1,B3")をRange(cells(1,1),cells(2,3))でやることってできますか？ 試しにｺﾝﾏ入れてみたけどできませんでした 898 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/07(土) 00:36:09.97 ] >>897 Application.Union(Cells(1, 1), Cells(2, 3)) 899 名前：897 mailto:sage [2012/04/07(土) 00:47:26.65 ] できました ありがとうございます 900 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/07(土) 03:29:15.39 ] オフィス田中は何ググッても出てくるよな 901 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/07(土) 05:29:02.44 ] オフィス田中は数年前に行き着いたが間違い記事があり それを2,3年経っても放置している上に、自分と大差ないレベルらしく 読んでても新たな発見とか嬉しい驚きとか全然無いんで全く行かなくなった 902 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/07(土) 07:16:36.62 ] MSDN一日中眺めてればいいよ 903 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/07(土) 07:39:34.18 ] 20年くらい前はそれでも全体見廻せたが いまそれやると一生無駄にすると思う 904 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/07(土) 08:32:51.50 ] >>892 >>>891 >そんな有名なところだれでも知ってるから google検索なんか利用できないじゃん。有名なところしかヒットしない仕組みなんだもの。 905 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/07(土) 17:05:07.95 ] シート2のＡ1：Ａ30のデータをシート1の Ｂ2：Ｂ12，Ｄ2：Ｄ12、Ｆ2：Ｆ12 の用に3行に分けて張り付けたいときは FOR ....next で繰り返しするしかないのでしょうか？ 何か一発で行けるようなスマートなやり方はないでしょうか？ 906 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/07(土) 17:31:13.82 ] >>905 B2:B12、D2:D12、F2:F12は3行じゃなくて11行だと思うけど？ 一発じゃないけどループ使いたくないならこんなのとか With Range("A1:A30") Dim v As Variant v = .Offset(0) Range("B2:B12") = v v = .Offset(10) Range("D2:D12") = v v = .Offset(20) Range("F2:F12") = v End With 907 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/07(土) 17:49:21.59 ] >>906 >>B2:B12、D2:D12、F2:F12は3行じゃなくて11行だと思うけど？ 確かに・・・ Ｂ2：Ｋ2、Ｂ4：Ｋ4、Ｂ6：Ｋ6の間違いでした。 シート2のＡ1：Ａ30には不連続のデータが入っていて、 それのＡ1：Ａ10をＢ2：Ｋ2に Ａ11：Ａ20をＢ4：Ｋ4に Ａ21：Ａ30をＢ6：Ｋ6にコピーしたいのです。 >906を試してみると一行に全ておなじデータが入ってしまいました。 908 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/07(土) 18:01:47.39 ] >>907 コピペしたら？ Range("A1:A10").Copy Range("B2").PasteSpecial Transpose:=True Range("A11:A20").Copy Range("B4").PasteSpecial Transpose:=True Range("A21:A30").Copy Range("B6").PasteSpecial Transpose:=True 909 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/07(土) 19:47:57.72 ] >>908 やはりそうするのが無難ですよね。 別件なのですが、Findで検索してヒットしたせるから 10行目までの範囲を指定したい場合はどうしたら いいですかね？ Offsetを使って色々しているのですが上手くいきません。 910 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/07(土) 19:52:21.42 ] >>909 Resizeプロパティ 911 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/07(土) 22:45:34.62 ] >>910 サンクス 912 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/08(日) 13:54:16.86 ] 教えてください。 OS:XP EXCEL:2007 ユーザーフォームを起動させると、言語バーの輝度が落ちてしまい日本語入力ができなくなります。 F8ﾎﾟﾁﾎﾟﾁでは再現せず…適当なポイントで止めても再現せず… 一旦エクセル落として開き直せば復帰します。 ユーザーフォームはクラスを使ったカレンダーフォームです 913 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/08(日) 18:30:01.65 ] Excel VBAは基本的なところ(セル・シート・ブック)は完ぺきにマスターしたのですが 苦手なのがサブルーチンをいっぱい作ってそれらを効果的に使う方法や、どうやって全体像を把握するのかや、 フォームを駆使して、それをどうやって標準モジュールと連携させるかとか、 変数についてローカル変数やグローバル変数をどう概念的に理解して使いこなすとか そのへんでつまづいています。 基本的なところ(セル・シート・ブック)は、入門書やすこしレベルが上のものでも、本やサイトでいいのがいっぱいありますが、 「サブルーチン」「フォーム」「変数」とかについてに特化した入門向けから上級者向けの本やサイトがあれば教えてもらえますか？ 914 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/08(日) 18:48:40.75 ] 個人用マクロ(PERSONAL.XLSB)を作っているのですが [X]で閉じるときもう一回押さないと閉じないんです。 これを回避する方法ありますか？ 915 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/08(日) 19:02:50.68 ] >>913 >>2 916 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/08(日) 19:03:25.69 ] >>914 >>2 917 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/08(日) 19:13:04.47 ] >>913 難しく考えすぎ。 「使いこなそう」などと考えるのがおかしい。 VBAはシートと関数で実現が難しい機能が ある場合の補助手段。 フォームとか面倒くさい機能は使うな。 シートという立派なGUIがあるんだから。 あとルーチンも変数も全部Publicでいいから。 918 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/08(日) 20:58:39.07 ] 「完ぺきにマスターした」なんて書いてる時点で釣りなんだからスルーしとけ 919 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/08(日) 22:57:28.08 ] >913 えっと、そういうのはVB（VB6まで)の入門書を卒業するレベルならいいんだろうけど、 いまさらVB6の本はないからねぇ >914 アドインにすれば？ 920 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/08(日) 23:00:30.69 ] >>913 VBAの基本的な文法からきちんと勉強してみれば？ 日経BP社の Microsoft Excel VBA セミナーテキスト ［2010/2007/2003対応］ なんてなかなか良い内容だと思ったけど。 921 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 00:32:51.14 ] >>912 自己解決したので報告 原因はfalseのままでメソッド終了させてたからだったみたい。最後にtrueで戻したら解決した。 お騒がせしました。 922 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/09(月) 01:09:31.32 ] Excel/VBAプログラミング入門 ttp://www.cqpub.co.jp/hanbai/books/MIF/MIFZ201204.htm う〜ん、「第10章　USB接続によるデータ計測」にひかれて買ってみたんだけど、 「サイエンスキューブ」ってデータロガーをつかうとこんなことができますよ、って説明だけで 期待したもの（WinUSB.dllをエクセルVBAから使うには）とはちょっと違ったなぁ、残念 シリアルポート(MSComm32.ocx)の代わりに使えるかなぁと思ったんだけど 923 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 03:58:36.15 ] 質問があるのですが。 複数のエクセルファイルを開いている状態で。 ショートカットキーを使ってマクロを実行しているのですが。 ｱｸﾃｨﾌﾞじゃないエクセルファイルのマクロと競合すると言いますか、 他のも実行してしまう状況にあります。 ショートカットキーのキーを変えると作業の円滑さがなくなってしまうので 出来れば同じショートカットキーを使いながら、アクティブなエクセルに 入っているマクロのみを実行したいのですが。何か方法はあるのでしょうか？ 924 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/09(月) 04:18:55.01 ] 誰かわかる人いましたらよろしくお願いします。 エクセル2003なんですが、条件書式の色つきが3つまでしかできません。 10色ほどしたくて、ぐぐったらここに辿り着いて元となるVBAを見つけました。 ただ、これはシート1のA列が指定になっています。 これを指定の範囲ないにするにはどこをいじればいいのでしょうか。 例えばシート1のC1〜C10を範囲にするにはどうすればいいでしょうか・ qanda.rakuten.ne.jp/qa7116283.html 925 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 07:58:24.87 ] >>924 あんまり綺麗なコードじゃないけど、めんどくさいから最小限の修正で Sub W() 　　Dim j As Long 　　Dim ws2 As Worksheet 　　Dim r As Range 　　Dim c As Object 　　Set ws2 = Worksheets("Sheet2") 　　Set r = Range("A1:A10")　　'ここに色を付けたいセル範囲を書く 　　If Intersect(r, Columns(1)) Is Nothing Then Exit Sub 　　Application.ScreenUpdating = False 　　r.Interior.ColorIndex = xlNone 　　For Each c In r 　　　　If WorksheetFunction.CountIf(ws2.Columns(1), c) Then 　　　　　　j = WorksheetFunction.Match(c, ws2.Columns(1), False) 　　　　　　c.Interior.ColorIndex = ws2.Cells(j, 2).Interior.ColorIndex 　　　　End If 　　Next 　　Application.ScreenUpdating = True End Sub 926 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 08:01:03.42 ] ちょっと訂正 1つ目のIfは削除しないと、A列にしか色が付かない 2つ目のIfもよく見たら不要だな Sub W() 　　Dim j As Long 　　Dim ws2 As Worksheet 　　Dim r As Range 　　Dim c As Object 　　Set ws2 = Worksheets("Sheet2") 　　Set r = Range("A1:A10")　　'ここに色を付けたいセル範囲を書く 　　Application.ScreenUpdating = False 　　r.Interior.ColorIndex = xlNone 　　For Each c In r 　　　　j = WorksheetFunction.Match(c, ws2.Columns(1), False) 　　　　c.Interior.ColorIndex = ws2.Cells(j, 2).Interior.ColorIndex 　　Next 　　Application.ScreenUpdating = True End Sub 927 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 08:09:08.94 ] まだVBAを扱って日が浅く、すみませんが教えて下さい。 390行目を超えると、 実行時エラー1004 WorkseetFunctionクラスのmmultプロパティを取得出来ません。 とエラーが出てしまいますが、最終行まで計算させる方法をご教示下さい。 Dim myA As Range Dim myB As Range Dim myC As Range Dim l As Long Dim m As Long Dim n As Long Dim lLoopTimes Dim i As Long Set myA = Range("Sheet1!D3") Set myB = Range("Sheet2!C2") Set myC = Range("Sheet1!DN3") l = 1 m = 111 n = 14 lLoopTimes = 1194 For i = 1 To lLoopTimes myGetMatrix(myC, l, n).FormulaArray _ = WorksheetFunction.MMult( _ myGetMatrix(myA, l, m), _ myGetMatrix(myB, m, n)) l = l + 1 Next End Sub 928 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 08:22:37.45 ] >>927 Sheet1かSheet2のどこかに数値の入ってないセルがあるんじゃない？ 929 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 08:29:51.78 ] >>927 そのプログラムだと、Sheet1!D3:DJ1196とSheet2!C2:P112が計算に使われる この範囲内に数値の入っていないセルとか結合されたセルがあるとエラーになる 930 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 08:54:42.65 ] >928 >929 チェックしてみましたが空白は無い様です。 また試しに、ループを外し、 l = 300、l = 600とマクロを300行分ずつ書き換え、順次実行していくと問題無く最終行まで行きました。 出来れば１つのマクロで終わりにしたいのですが、 何か良い方法はありませんでしょうか・・・。 931 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/09(月) 09:50:47.36 ] フォームモジュールのところにちゃんしグローバル変数を Public inTest As Integer と宣言してるのに 標準モジュールではその変数を使えないのはどういうこと？ 別の標準モジュールにならPublic inTest As Integerと宣言してたら使えるのに。 932 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/09(月) 09:56:43.94 ] 逆に標準モジュールでPublic inTest As Integerと宣言してれば フォームモジュールではinTestの変数は使えるんですよ。 おかしくね？ 933 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/09(月) 09:57:37.34 ] さらにThisworkbookモジュールでも上記と同様のことが。 ということは標準モジュールが一番えらいの？ 934 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 10:17:37.12 ] カンマ区切りのCSVファイルの読み込みで、セルG2を先頭にして読み込むとか する方法ってありますでしょうか？ 普通に読み込んで行列を挿入しているのですが、スマートな方法があれば教えて下さい。 環境はwinxp＋Excel2003です。 宜しく御願いします。 935 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/09(月) 10:20:15.49 ] 個人用マクロにFunctionを書いても 普通のWorksheet関数として使おうとしても使えないんですけど。 どうやれば使えるようになりますの？ (普通にシートにFunctionを書けばそのシートではWorksheet関数として使えるけど) ヤバくない？ 936 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 10:28:09.14 ] >>934 行列を挿入するよりカトペの方が手間は少ないのでは 「テキストファイルの読み込み」を使えば好きな場所に読み込めるけど、位置を決めるまでに何度も「次へ」ボタンを 押さなきゃいけないからあんまりスマートとは言えないような気がする 一発で処理したいならマクロ 937 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 11:16:08.23 ] >>935 無理 そういうときはアドインにする 938 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/09(月) 11:35:10.56 ] >>973 さっきから出ている「アドイン」とは何でござるっすの？ 939 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 11:45:29.76 ] >>938 Excelのヘルプで「アドイン」で検索するか、各種検索エンジンで「Excel アドイン」で検索したらいいと思うよ 940 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 11:46:30.60 ] >>936 あっ！ありがとうございます。 941 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 11:54:37.72 ] >>924 ここで条件によってExit Subしてるから、C1〜C10の範囲じゃなければExit Subするようにすればいい If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub 942 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 11:56:34.73 ] グラフとかのオブジェクトを削除した時に、マクロを走らせたいのですが どのイベントを使えばいいのでしょうか？ どなたか教えて下さい。 943 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 12:32:54.00 ] >>942 残念ながらありません 監視する仕組みを自作するしかありません 944 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/09(月) 15:04:28.95 ] >>931 フォームでPublic宣言したものは フォーム.変数名 で使える。 標準モジュールのは 標準モジュール.変数名でアクセスできるが 省略できるだけ 945 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 21:46:22.98 ] ユーザー定義変数って、入れ子にできるんだね。 かなり便利だ。 946 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/09(月) 23:07:19.96 ] >>945 詳しくお願います 947 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 23:11:11.65 ] エンターキーが押されたらマクロが走るようにしたいのですが、 ブック全体？でキーを受け付ける方法はないでしょうか？ マクロ実行後、オペレーターが画面を確認して、エンターを押したら、 再度マクロが走るようにしたいのです。 ググってもTextboxに対してだったり、セルへの入力時の例ばかりで 目的の物とは違うので教えて下さい。 宜しく御願いします。 948 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/09(月) 23:11:16.53 ] VBAで作ったExcelのファイルを、 Outlookのメールに添付して しかもそのメールの差出人・件名・本文(数行以上に渡る文章)もVBAで書いて 送信ボタンを押す直前の状態までExcelのVBAで作ることは可能ですか？ Yなら、どうやりますか？ 949 名前：948 [2012/04/09(月) 23:12:45.90 ] VBAで作ったExcelのファイル　＝　あるマクロでいろんな処理をした結果作ったExcelのブックのこと 950 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 23:22:12.11 ] >>947 Application.OnKeyメソッド 951 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 23:24:55.96 ] >>948 >送信ボタンを押す直前の状態までExcelのVBAで作ることは可能ですか？ 可能 >Yなら、どうやりますか？ >>2 952 名前：945 mailto:sage [2012/04/09(月) 23:51:26.07 ] >>946 たとえば、宣言部で Private Type AAA BBB As String CCC As String End Type Private Type ZZZ DDD As AAA EEE As String End Type としてやる。 で、プロシージャ内でユーザー定義変数を宣言。 すると、あまり意識せずに多次元配列状態を作り出せる。 Dim A As ZZZ A.EEE= "文字列" A.DDD.BBB="入れ子になってる" A.DDD.CCC="これも" With A Debug.Print .EEE With .DDD Debug.Print .BBB Debug.Pring .CCC End With End With この例だとしょぼいけど、似たような内容の変数が 10個も20個も出てくるときにものすごく整理しやすい。 953 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/09(月) 23:52:18.64 ] >>950 出来ました。 ありがとうございました。 954 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/10(火) 10:47:52.39 ] End(xlUp)は、プロパティですかメソッドですか？ トマトは、野菜ですか果物ですか？ バナナはおやつに入りますか？ 955 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/10(火) 10:50:11.61 ] >>954 バナナは果物です 956 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/10(火) 12:40:48.54 ] >>954 おやつやデザートとして食べるのが果物。 おかずとして食べるのが野菜。 957 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/10(火) 12:43:10.21 ] 酢豚にパイナップルを入れるのは最近聞いたが 実際に見たことは無い 958 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/10(火) 19:29:34.77 ] >>954はウ菜、かつ、バ果者 である 959 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/11(水) 00:10:58.62 ] End()はメソッドxlUpは定数 960 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/11(水) 16:53:30.86 ] ある特定のフォルダ(例えば、デスクトップ\Test\A01\)にあるExcelファイルだけを開くにはどうすればいいですか？ また、そのフォルダにあるExcelファイルを開かずにその中のセルにある値をいくつか取り出すことは可能ですか？ 961 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/11(水) 17:07:23.19 ] >>960 > ある特定のフォルダ(例えば、デスクトップ\Test\A01\)にあるExcelファイルだけを開くにはどうすればいいですか？ Workbooks.Open filename:="c:\foo\bar.xls" で特定のフォルダの特定のブックが開ける > また、そのフォルダにあるExcelファイルを開かずにその中のセルにある値をいくつか取り出すことは可能ですか？ 不可能 962 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/11(水) 18:00:41.70 ] >>960 「Excelファイルを開かずに」の「開く」の定義をもうちょっと明確にしないと答えられないよ 963 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/11(水) 18:21:46.56 ] >>961 いや、そのフォルダにあるExcelファイルを全部開くという意味です。 そのときによってファイル名は毎回違う、みたいな。 964 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/11(水) 18:25:47.31 ] >>963 Dir関数使えばいいよ 965 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/11(水) 18:45:17.49 ] >>964 そのDir関数はなんのための関数？どうやって使うの？ 966 名前：960 [2012/04/11(水) 18:45:46.25 ] そんな関数、本に載ってないからわからん 967 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/11(水) 18:55:55.94 ] >>965 お前のExcelにはヘルプが無いのか？ネットに接続できるのにgoogleにはアクセス出来んのか？ 968 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/11(水) 19:03:23.94 ] 使ったことすらない。グーグルは邪道だ。 969 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/11(水) 19:16:03.91 ] こんなとこで見も知らぬ他人にきくほうがよっぽど邪道だろ 970 名前：営利利用に関するLR審議中＠詳細は自治スレへ [2012/04/11(水) 19:24:04.95 ] なんだと、このやろう 971 名前：営利利用に関するLR審議中＠詳細は自治スレへ mailto:sage [2012/04/11(水) 19:52:41.87 ] Exceは確定申告のために税額を計算するソフト それ以外の使い方は全部邪道 972 名前：デフォルトの名無しさん mailto:sage [2012/04/11(水) 20:40:11.41 ] いきなり別のソフトの説明されても 973 名前：デフォルトの名無しさん mailto:sage [2012/04/11(水) 21:18:22.13 ] 確定申告はそれ用のソフトがあるだろ エクセでやってる奴ってその程度のお金も出せない貧乏人なの？ 974 名前：デフォルトの名無しさん mailto:sage [2012/04/11(水) 22:11:36.36 ] エクセルのほうが高いだろ 975 名前：デフォルトの名無しさん mailto:sage [2012/04/11(水) 22:12:54.75 ] エクセルはそれ以外の用途で買ってて入れてる奴が多い 976 名前：デフォルトの名無しさん mailto:sage [2012/04/11(水) 22:24:07.49 ] ExcelVBAのスキルの前に、スルースキルを身につけろ 977 名前：デフォルトの名無しさん mailto:sage [2012/04/12(木) 01:04:05.31 ] もともと表計算ソフトが税金の計算のために発明されたってのは本当の話

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef