Excel VBA 質問スレ Part26

1 名前：デフォルトの名無しさん mailto:sage [2012/08/19(日) 17:01:50.51 ] ExcelのVBAに関する質問スレです ★1 質問テンプレ(雛形)は用意しませんが､OSとExcelのバージョンは必ず書きましょう。 ★2 ExcelのVBA以外の部分に関する質問はNGです。 　　　但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。 ★3 ExcelのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。 　VBAとは､『Visual Basic for Applications』の略で 　　Application 　　├Workbooks 　　｜└Workbook 　　｜　 ├Worksheets 　　｜　 ｜└Worksheet 　というApplication以下のオブジェクトを､VB言語で操作するものを指します。 　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､ 　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。 ★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。 ★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み、 　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。 　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。 ★6 わからなければとりあえず「マクロの記録」（Alt, T, M, R） 前スレ： Excel VBA 質問スレ Part25 toro.2ch.net/test/read.cgi/tech/1341722983/ 52 名前：桃白白 [2012/08/25(土) 12:12:42.00 ] >>50 For Eachでぐーるぐる Dim s As Shape For Each s In ActiveSheet.Shapes   If (s.Type = MsoShapeType.msoFormControl) Then     If (s.FormControlType = XlFormControl.xlCheckBox) Then       s.Delete     End If   End If Next 53 名前：デフォルトの名無しさん mailto:sage [2012/08/25(土) 13:12:04.08 ] >>47 >>48 役割はトグル以外の何物でもないのですが、 クリックすると白黒画像からカラーに変わるギミックを どうしてもやりたくて、方法がわからずこのような原始的な方法を取りました。 各ボタンに記述してみます。ありがとうございました 54 名前：デフォルトの名無しさん mailto:sage [2012/08/25(土) 13:26:17.55 ] >>49 選択しようとするからじゃないの? ActiveSheet.ChartObjects(1).Activate 55 名前：デフォルトの名無しさん mailto:sage [2012/08/25(土) 14:32:05.25 ] >>54 ActiveSheet.ChartObjects(1).Activate ActiveSheet.ChartObjects(1).Chart.Axes(xlValue).MajorGridlines.Select できましたｗありがとうございます 56 名前：桃白白 [2012/08/25(土) 14:40:56.33 ] >>55 そんなの桃白白認めない 57 名前：デフォルトの名無しさん mailto:sage [2012/08/25(土) 17:22:08.78 ] ExcelVBAの型変換について疑問がありますので、詳しい方、ご教示ください。 ExcelVBAでは、文字型の数値が、代入先の型に自動的に変換されるものと漠然と思っていました。 以下のようにサンプルを作ってテストしてみましたが一貫しない結果がでました。 Test1は、文字列が数値化されて数値の合計が表示されました。 しかし、Test2では、文字列の連結として表示しました。 さらに、宣言文の(**)の部分を、Dim Int3, Int4, n As Long からDim Int3, Int4 As Long としてnを除くと、正常に数値として加算されました。 このように変わるのはどうしてでしょうか？ 原因がわからないと安心してマクロを組めないのでよろしくご教示ください。 (WindowsXP Excel2007です) Sub 型変換テスト() Dim Int1, Int2 As Long '(*) Dim Int3, Int4, n As Long '(**) Dim Sum1, Sum2 As Long ' ******* Test 1 ************ Int1 = "1827" Int2 = "1931" Sum1 = Int1 + Int2 MsgBox ("Test 1 = " & Sum1) ' ******* Test 2 ************ Int3 = "1827" Int4 = "1931" Sum2 = Int3 + Int4 MsgBox ("Test 2 = " & Sum2) '文字列の連結 End Sub 58 名前：デフォルトの名無しさん mailto:sage [2012/08/25(土) 17:32:32.39 ] >>57 ちゃんと宣言されてないよ 59 名前：デフォルトの名無しさん mailto:sage [2012/08/25(土) 17:33:16.19 ] 初心者がよくハマるやつだな Dim Int1, Int2 As Long 　Int1は型指定無し、Int2はLong型 Dim Int3, Int4, n As Long 　Int3, Int4は型指定無し、nはLong型 Dim Int3 As Long, Int4 As Long, n As Long 　Int3, Int4, n全部Long型 型はひとつひとつ指定しないとダメ Dim Int3, Int4, n As Long だと最後のnしか型指定してないことになる 型指定無し(Valiant型)だと、代入した値依存の内部型になるから Intのつもりで実はstr3 + str4をやっていたというわけだ 60 名前：デフォルトの名無しさん mailto:sage [2012/08/25(土) 18:25:24.46 ] 初心者じゃ無いつもりだけど未だに分からないのがdecimal。 なんで宣言出来ないんだ？？ 61 名前：デフォルトの名無しさん mailto:sage [2012/08/25(土) 18:49:27.72 ] >>60 仕様に対して「なんで」って言い出したらキリがない 62 名前：デフォルトの名無しさん mailto:sage [2012/08/25(土) 18:50:38.91 ] 現在、10 進型はバリアント型 (Variant) の内部処理形式でのみ使用できます。変数を 10 進型として宣言することはできません ってヘルプに書いてあるから、そういう仕様だとしか 63 名前：デフォルトの名無しさん mailto:sage [2012/08/25(土) 19:10:26.70 ] ある程度割り切りも必要だけど、 何事にも疑問を持って追求しようとする姿勢が無いとダメだよ。 64 名前：デフォルトの名無しさん mailto:sage [2012/08/25(土) 19:33:44.95 ] 調べれば仕様だって事はすぐわかるんだが、追及なんて全くしてないだろ なんでそういう仕様なのか考えるのはまだ意味があるかもしれんが 65 名前：デフォルトの名無しさん mailto:sage [2012/08/25(土) 21:27:58.33 ] 一応Currency型があるから。 誰も覚えてなさそうだけどw 66 名前：デフォルトの名無しさん mailto:sage [2012/08/25(土) 21:29:55.49 ] 57です 59様、ありがとうございます。 てっきり複数列挙してもまとめて型宣言できるものと思っていました。 67 名前：デフォルトの名無しさん mailto:sage [2012/08/25(土) 22:39:09.50 ] セルにAlt+Enterで改行したデータを ユーザーフォームのTextboxに入れようとしても 改行してくれないんですね。 何かいい方法はないですか？ 68 名前：デフォルトの名無しさん mailto:sage [2012/08/25(土) 22:44:36.80 ] >>67 たぶん MultiLineがFalseになってるだけだと 69 名前：デフォルトの名無しさん mailto:sage [2012/08/25(土) 23:10:05.12 ] >>68 ありがとう！ 70 名前：デフォルトの名無しさん mailto:sage [2012/08/26(日) 03:13:42.98 ] >>63 追求する意味があるものと無いものを見極める能力も無いとダメだよ 何も解ってない状態で割り切って諦めるのと、追求する意味がないことを見極めて 無駄な愚考をしないのは違うからね 71 名前：デフォルトの名無しさん mailto:sage [2012/08/26(日) 09:14:57.64 ] おまいらが作ったクラスモジュール教えてくれ 使える、別のアプリ専用、面白い、誰得と何でもいいわ 72 名前：デフォルトの名無しさん mailto:sage [2012/08/26(日) 09:46:58.31 ] >>71 具体性のない質問というかネタクレクレはスレ違い >>2でも行くかググって漁れ 73 名前：デフォルトの名無しさん mailto:sage [2012/08/26(日) 19:11:36.33 ] ソート用クラスなら。 並び替えられるデータは数字の入った配列で、 比較メソッドはイベントとして使う側で実装する形。 数字=インデックスとして見れば、どんな内容のソートにでも使える。 74 名前：デフォルトの名無しさん mailto:sage [2012/08/26(日) 23:09:08.58 ] 入力データを取り込むのに Dim ttl As String If TypeName(buf) = "String" Then ttl = InputBox("タイトルを入力", title:="タイトル入力", Default:=buf)　←bufは事前にクリップボードからセット Else ttl1 = "" End If と言うのを作ったのですが、これだと1度に1つの文字列しか取り込めません 1つのダイアログを表示して入力箇所を2つ表示し 同時に2つの文字列を取り込む場合どうすればよいのでしょうか？ 75 名前：デフォルトの名無しさん mailto:sage [2012/08/26(日) 23:19:45.24 ] ユーザーフォーム使えば良いだけだと思うよ 76 名前：デフォルトの名無しさん mailto:sage [2012/08/26(日) 23:40:00.07 ] 使う方が嫌じゃなければカンマで区切るとか 77 名前：デフォルトの名無しさん mailto:sage [2012/08/26(日) 23:54:40.85 ] あとはforで二回まわすとか？ ユーザーフォームが一番スマートだと思うけどね 78 名前：74 mailto:sage [2012/08/27(月) 00:50:32.74 ] ユーザーフォームって本を買ってきてVBを独学したときに作った記憶があるな クリップボードから拾わせた文字列を入力の初期値にして 文字列を入力したらVBに取り込んで シートのフィルターの指定フィールドで抽出させるというのを作ったんだけど やっぱり複数の文字列で同時にフィルターを掛けたいときが時々ある 同じ内容なんだけど、入力した時期によってキーワードが違っているときとか 79 名前：デフォルトの名無しさん mailto:sage [2012/08/27(月) 01:07:36.07 ] 解読しづらい文章だな 80 名前：デフォルトの名無しさん mailto:sage [2012/08/27(月) 21:04:53.28 ] 各セルの文中の最初に「★」がついてるものだけを探して「★」だけを消すのはどうすればよいでしょうか 最初でないところ（文中）にも「★」が出てくることがあるので検索して丸ごと置換というわけにもいかず困っています よろしくお願いします 81 名前：デフォルトの名無しさん mailto:sage [2012/08/27(月) 21:21:09.13 ] >>80 Range.Findで探して、Mid$関数で消せば良いんじゃないか? その条件ならワイルドカードが使えるし。 82 名前：デフォルトの名無しさん mailto:sage [2012/08/27(月) 22:37:49.14 ]     Selection.Replace What:="★*", Replacement:="", LookAt:=xlWhole, _         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _         ReplaceFormat:=False たんに全体一致で"★*"を""で置き換えるだけだが。VBAいらね 83 名前：デフォルトの名無しさん mailto:sage [2012/08/27(月) 23:58:40.21 ] >>80 ↑ので充分だと思うけど もし範囲が決まっているなら Sub test() Dim r As Range For Each r In Range("A1:B5") If r Like "★*" Then r = Replace(r, "★", "", 1, 1) Next r End Sub でもどうだろうか 84 名前：デフォルトの名無しさん mailto:sage [2012/08/28(火) 00:23:11.36 ] if instr(hoge,"★") = 1 then right(hoge,len(hoge)-1) 85 名前：デフォルトの名無しさん mailto:sage [2012/08/28(火) 05:54:18.56 ] エクセルでwavファイルを取り込んでmp3で保存することは可能でしょうか？ 86 名前：デフォルトの名無しさん mailto:sage [2012/08/28(火) 06:18:10.50 ] 常識だろｗ 87 名前：デフォルトの名無しさん [2012/08/28(火) 07:15:53.67 ] >>85 エクセルでやる意味について 88 名前：デフォルトの名無しさん mailto:sage [2012/08/28(火) 07:30:31.18 ] >>85 世の中広いな 89 名前：桃白白 [2012/08/28(火) 07:31:22.12 ] >>87 エクセルはみんなのツールだ。フロントエンドをこしらえるのならなかなかいんじゃないか。 90 名前：デフォルトの名無しさん mailto:sage [2012/08/28(火) 07:35:55.08 ] >>85 可能だけどスレ違い 91 名前：デフォルトの名無しさん mailto:sage [2012/08/28(火) 19:27:40.17 ] マクロ１でマクロ２を走らせる時、どちらも同じ変数名を使っているのですが問題ないですか？ それぞれのマクロの中で値を指定していれば大丈夫ですよね？ 一応動くのですがちょっと不安なので詳しく教えてください 92 名前：デフォルトの名無しさん mailto:sage [2012/08/28(火) 19:29:55.84 ] 変数にはスコープって概念があってな 大丈夫かどうかはソースみないと何とも言えん 93 名前：デフォルトの名無しさん [2012/08/28(火) 19:44:37.89 ] Public変数を知らなそうなので大丈夫でしゅ 94 名前：デフォルトの名無しさん mailto:sage [2012/08/28(火) 20:57:27.14 ] ユーザー定義関数の引数にrangeオブジェクトを指定した場合、 その値が数値の場合は配列に入れ直した方が処理は軽くなるのですか？ 範囲は固定ではなく任意です。 環境なくて試せません。お願いします 95 名前：デフォルトの名無しさん mailto:sage [2012/08/28(火) 21:15:15.96 ] 軽くって？ 配列に移し替える時にループ使うから意味ないと思うけど 96 名前：デフォルトの名無しさん mailto:sage [2012/08/28(火) 21:47:07.44 ] >>95 失礼しました、シートから関数を直接呼び出すと挙動が重かったので軽くとかきました。 たしかにループしたら効果半減ですね… 97 名前：デフォルトの名無しさん mailto:sage [2012/08/28(火) 22:13:29.80 ] ソートの質問です Sheet1が A　B　C 1あ い う 2か き く 3さ し す となっていて Sheet2で関連度の表を作っていて 　A　B　C 1　さ し す 2さ　2　0　1 3し0　2　1 4す1　1　2 としています これを，Sheet1でセルを選択した時に，Sheet2の関連度を呼び出してソートするのはどのように書けばいいでしょうか 例えば，B3[し]を選択したら，Sheet2で[し]をみると関連のある順に[し][す][さ]なので Sheet1全体を A　B　C 1い う あ 2き く か 3し す さ と並べ替えたいのです また，このようなソートはどのようにググればやり方が出てきますか？ 98 名前：デフォルトの名無しさん mailto:sage [2012/08/28(火) 22:43:26.96 ] 自力で関数を書く 99 名前：デフォルトの名無しさん mailto:sage [2012/08/28(火) 22:46:56.48 ] >>97 Worksheet_SelectionChangeでググってみたらどう？ 100 名前：デフォルトの名無しさん mailto:sage [2012/08/29(水) 00:56:26.02 ] >>94-96 Variant型変数にRangeの値を代入するならループなんて不要 ためしにこんなん書いてみたらTest1よりTest2のほうが10倍以上速かった Sub Test1() Dim I&, J&, T As Date, R As Range T = Now Set R = Cells(1, 1).Resize(65535, 100) For I = 1 To 65535 For J = 1 To 100 R.Cells(I, J) = I + J Next J Next I Set R = Nothing T = Now - T Cells(1, 1) = Format(T, "hh:mm:ss") End Sub Sub Test2() Dim I&, J&, T As Date, R As Range, V As Variant T = Now Set R = Cells(1, 1).Resize(65535, 100) V = R For I = 1 To 65535 For J = 1 To 100 V(I, J) = I + J Next J Next I R = V Set R = Nothing T = Now - T Cells(1, 1) = Format(T, "hh:mm:ss") End Sub 101 名前：デフォルトの名無しさん mailto:sage [2012/08/29(水) 00:57:03.37 ] >>96 ユーザー定義だとどう書いても重いよね 102 名前：デフォルトの名無しさん mailto:sage [2012/08/29(水) 07:25:09.73 ] >>100 ありがとうございます。 引数をvariantにしてしまえばいいのですかね。 試してみます。 >>101 エクセル使う人は、直感的使いたいようで。 配列数式とか駆使して挙動みながら無理のない範囲で作るしかないですよね。 103 名前：桃白白 [2012/08/29(水) 11:37:02.40 ] >>97 Friendpaste - SortWithForeinKey https://friendpaste.com/2SD94Big6C5rrUcyFYuphe 桃白白が全力で実装したから試してみて 104 名前：デフォルトの名無しさん mailto:sage [2012/08/30(木) 15:06:34.82 ] VBA勉強して２日目のド初心者です www.dotup.org/uploda/www.dotup.org3367663.jpg 画像のように、２ページに分かれてそれぞれテキストボックスオブジェクトが２つ有り 上部のボタンを押すと各テキストをテキストファイルとして保存する　 という処理を作りたいのですが １ページだけなら strREC = ActiveSheet.Shapes.Range(Array("Text Box 7")).TextFrame.Characters.Text Print #intFreeFile, strREC という風にして実装できたのですが、 ２ページ目にあるテキストボックスオブジェクトを指定する方法が分かりません。 やり方のヒントを教えて下さい。 105 名前：デフォルトの名無しさん mailto:sage [2012/08/30(木) 15:23:23.59 ] ド素人すぎてクラクラするなw 106 名前：デフォルトの名無しさん mailto:sage [2012/08/30(木) 16:23:19.37 ] そんなこと言うくらいなら教えてあげなよ 107 名前：デフォルトの名無しさん mailto:sage [2012/08/30(木) 16:27:27.69 ] for eachで回せばいいんだよ 108 名前：桃白白 [2012/08/30(木) 17:52:44.75 ] >>104 画像ではText Box 7って２ページ目のテキストボックスなんでない？ ページ変わってもテキストボックス取得する方法は変わらんだろ テキストボックスを選択したら左上にテキストボックスの名前が表示されるから、そこに桃白白と入力して ActiveSheet.Shapes("桃白白").TextFrame.Characters.Textでいけるっしょ 109 名前：デフォルトの名無しさん mailto:sage [2012/08/30(木) 23:44:46.08 ] 対象のブックが開いているか調べるのにはどうしたらいいですか？ もし、開いていたらそのままシートの内容をコピーして、 開いていなかったら、開いてコピー後、対象ブックを閉じる というのをやりたいです。 110 名前：デフォルトの名無しさん mailto:sage [2012/08/30(木) 23:53:28.43 ] 馬鹿には無理 111 名前：桃白白 [2012/08/31(金) 00:02:07.39 ] >>109 For Eachでぐーるぐる Sub TestFindWorkbook()   Dim book As Workbook   Set book = FindWorkbook("C:\Users\a\Documents\桃白白.xlsm") : End Sub Function FindWorkbook(ByVal fullName As String) As Workbook   Dim w As Workbook   For Each w In Excel.Workbooks     If (w.fullName = fullName) Then       Set FindWorkbook = w       Exit Function     End If   Next   Set FindWorkbook = Nothing End Function 112 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 00:33:06.46 ] Windows XP / Excel 2003 環境にて質問です。 A.xls　が直接開かれたか、他ブック(B.xls、C.xls、D.xls)から VBA-Workbooks.Openで開かれたかを A.xls側から判断するのに適した方法ご教示願います。 今現在の方法としては、AにWorkbook_Open時に開いているブック名を調べ、 B、C、Dに該当するファイル名が開かれたら、他ブックより開かれた。と判定させています。 （偶然ですが>109-111さんの流れのようなもの） ただしこの場合だとAを直接開く際、Bが既に起動中でも該当してしまいます。 条件として個人用マクロは使用せずにてクリアしたく、よろしくお願いします。 113 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 07:10:08.53 ] 馬鹿には無理 114 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 08:24:31.30 ] Auto_Open が走るかどうかで判定できる気がする 115 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 08:44:54.04 ] >>112 A.xls側が判断するタイミングはいつ？いつでも？ 116 名前：デフォルトの名無しさん [2012/08/31(金) 09:55:33.99 ] >>112 他ブックからオープンしたときは A.xlsのどこか任意のセルにその呼び出し元を記述させるようにしたら良いんでない？ たとえばB.xlsからオープンしたら Workbooks.open(A.xls) Activeworkbook.sheets(1).cells(1,1)="B.xls" みたいに 117 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 10:34:50.97 ] www.officiallyjd.com/wp-content/uploads/2012/06/20120618_kinashi_15.jpg 118 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 12:16:22.91 ] >>112 www.moug.net/tech/exvba/0060076.html これ参考にならないかな？ 119 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 16:48:56.27 ] 質問です 変数 = A1.value A1のセルには、文字列helpme となっているところを A1にhelp A2にme としたとき、 変数= なんて.value書けばいいですか？ 120 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 17:13:04.83 ] range("a1").value & range("a2).value ってことか？ 121 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 17:13:52.47 ] >>119 質問するならちゃんとしたコードで書いてよ 普通に考えて 変数 = A1.value は「セルA1の値を変数に代入する」という意味のコードとしては まともなコードとはいえない これが「セルA1の値を変数に代入する」という意味のコードとして成立するためには 表記中の「A1」が「セルA1を意味するオブジェクト変数」である必要があるけど それは>>119の質問内容からは確定できない ちゃんと動作するコードとして書くなら 変数 = Cells("A1").Value みたいに書いてないとおかしい で、そういう意味であるなら 変数 = Cells("A1").Value & Cells("A2").Value とすれば要求を満たせる 122 名前：桃白白 [2012/08/31(金) 17:25:14.21 ] もしくはこうか Range("A2") = Right(Range("A1"), 2) Range("A1") = Left(Range("A1"), 4) 123 名前：デフォルトの名無しさん [2012/08/31(金) 17:41:04.79 ] >>122 それは意味が違うんじゃない？ 124 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 18:30:31.90 ] お前ら相変わらずエスパーだな俺には何言ってるのかわからん 125 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 18:40:22.16 ] >>124 >>119は意味分からんでもそれへの回答で理解できただろ 126 名前：112 mailto:sage [2012/08/31(金) 20:04:45.71 ] >>115 Aが呼び出されて直後の必要があります。 Workbook_Open起動時に本来やるべき処理があって、 それを実行する条件として、BCDから開かれたときのみとしたい。 という感じです。（直接起動時は実行したくない） >>116 ちょうど↑の内容に絡む分ですが、オープンした後だと 分岐条件作る前にAのWorkbook_Openが走ってしまうのでダメでした。 >>118 読み取り専用に関する内容でした。 少し今回の件とは異なるように見受けられました。 >>115-118 ありがとうございました。 何か他の手を考えてみようと思います。 ってレス書いているホント今。思い浮かびました。 >116の内容をAじゃなく、開きに行くブックBCD自身にすればいいのですね。 Aを開く処理時に自ブックのCells(1,1)="flag"として Aが開いたらCells(1,1)=""にする。 AからはBCDの存在調査じゃなく、BCD存在調査後、cells1,1の値を調べさせればいいのですね。 if Cells(1,1)="flag" then マクロから起動。 else 自己起動。見たいに。 どうもありがとうございました。 127 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 20:12:25.23 ] >>120 これでできますた！！！ありがとう！ 128 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 20:16:13.19 ] こんにちは！質問です！ エクセルファイルを開いている日(毎日)からみて次の月曜日の日付を取得するにはどうすればいいですか？ つまり火曜日に開いても木曜日に開いても来週の月曜日の日付を表示し、来週には再来週の日付を表示するということです。 129 名前：112 mailto:sage [2012/08/31(金) 20:31:39.46 ] >>128 =TODAY()+9-WEEKDAY(TODAY()) 月曜日に開いた場合の処理が指示されていないから、そこはつけたしてくだしあ。 130 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 20:34:43.70 ] name消し漏れ＋ 日曜日の判定も必要ですな。>129だと不完全です。 WEEKDAY(TODAY()) = 0と1のとき分岐してください。 131 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 21:13:03.84 ] >>126 >>114はダメだったのか？ 132 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 21:14:54.31 ] セルに文字としてプラスの記号入れ方教えてください。 133 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 21:17:13.60 ] >>132 全角文字で 134 名前：デフォルトの名無しさん mailto:sage [2012/08/31(金) 21:18:26.75 ] ありがとうございます 135 名前：デフォルトの名無しさん mailto:sage [2012/09/01(土) 00:26:56.53 ] >>130 これってどういう意味？ 136 名前：デフォルトの名無しさん mailto:sage [2012/09/01(土) 00:36:13.97 ] 多分解決しますた 137 名前：>112 >126 mailto:sage [2012/09/02(日) 03:17:58.59 ] >>131(>>114) 初めて知りました。 できそうですね。 ありがとうございます。 138 名前：デフォルトの名無しさん mailto:sage [2012/09/02(日) 21:54:53.26 ] 選択セルの日付が今日を過ぎていたら赤文字、でなければ黒文字 をマクロにしようと思い、以下を書いた Dim cell As Range For Each cell In Selection If cell.Value >= Date Then cell.Font.ColorIndex = 3 Else cell.Font.ColorIndex = 1 End Next 実行するとNextに対するForが無いと言われる If〜Endをコメントブロックすると、ループは廻ります、何がいけないのでしょうか？ 139 名前：デフォルトの名無しさん mailto:sage [2012/09/02(日) 22:03:18.22 ] ×End ○End If 140 名前：デフォルトの名無しさん mailto:sage [2012/09/02(日) 22:03:38.33 ] >>138 end じゃなく end ifでは？ 141 名前：デフォルトの名無しさん mailto:sage [2012/09/02(日) 22:04:45.00 ] >>138 最後から2行目の「End」は「End If」でしょ。 142 名前：デフォルトの名無しさん mailto:sage [2012/09/02(日) 22:13:18.95 ] あっ！ミスってた 有り難うみんな 143 名前：デフォルトの名無しさん mailto:sage [2012/09/02(日) 23:06:48.44 ] ここって資格試験について質問しても大丈夫でしょうか？ 公式テキストの解答で１つ理解できないものがありまして・・・。 144 名前：デフォルトの名無しさん mailto:sage [2012/09/02(日) 23:13:57.52 ] 既に終った試験だとしても、出題内容をこういうところで漏らすことが 非常識な行動じゃないと思えるほどのバカなら好きにしたらいいさ。 145 名前：デフォルトの名無しさん mailto:sage [2012/09/02(日) 23:48:20.43 ] >>144 いや、実際の試験では無くて公式テキストのサンプル問題です。 ちょっと理屈が良く分からない部分がありまして。 146 名前：デフォルトの名無しさん mailto:sage [2012/09/03(月) 00:14:38.18 ] 何でも良いから晴れよ 147 名前：デフォルトの名無しさん mailto:sage [2012/09/03(月) 01:33:06.43 ] 福沢諭吉「脱亜論」　１８８５年３月１６日 時事新報 日本の不幸は中国と朝鮮だ。 この二国の人々も日本人と同じく漢字文化圏に属し、同じ古典を共有しているが、 もともと人種的に異なるのか、教育に差があるのか、 日本との精神的隔たりはあまりにも大きい。 地球規模で情報が行き来する時代にあって、近代文明や国際法について知りながら、 過去に拘り続ける中国・朝鮮の精神は千年前と違わない。 国際的な紛争の場面でも「悪いのはお前の方だ」と開き直って恥じることもない。 もはや、この二国が国際的な常識を身につけることを期待してはならない。 「東アジア共同体」の一員として その繁栄に与ってくれるなどという幻想は捨てるべきである。 日本は、大陸や半島との関係を絶ち、 欧米と共に進まなければならない。 ただ隣国だからという理由だけで特別な感情を持って接してはならない。 この二国に対しても、国際的な常識に従い、国際法に則って接すればよい。 悪友の悪事を見逃す者は、共に悪名を逃れ得ない。 私は気持ちにおいては「東アジア」の悪友と絶交するものである。 　　　　　　　　　_,,,,,,__　 __,,,__ 　　　　　 　 ィｊｊ）））))))))!!!!!彡ヽ, 　　　　　　/ﾐ/　　　　 　 　 ,}彡ﾍ 　　　　　　|ﾐ{ -‐ ‐ ‐　‐-　 {三=| 　　　　　　El=＝; ﾟ　''＝=.　|ミミ,| 　　　 　 　 `ﾚｆｫ､,〉 :ｒｆｫ.､, 　!ｉﾙ┤ .　　　 　 　 ｛ ｀¨ i　･､¨ ´　 `{ゞ'｝　支那、朝鮮とは .　　　　　 　 |　'`!!^'ヽ 　 　 .｢´　　付き合うなと忠告しておいたのに。。。 　　　　　　　 !　,-ﾆ'¬-､　　,!|,_　　　 .　　　　　　　 ＼´?｀　　／ ∧ﾍ、 　　　　 　 　 __/〉｀ー ' ´ ／　 〉　＼ 　　　　 _, ィ´「∧ 　 　 ／　　/　　　 」¬ｰ- ､_ 　 -‐ ´　 /　/　 ヽ､／ 　 　/　 　 　iヾ　　　 　 ヽ 148 名前：デフォルトの名無しさん mailto:sage [2012/09/03(月) 14:20:50.18 ] >>144 公式テキストの問題と解答をまるごとここに書くのならともかく、納得できない一問について ここに書くことのどこに問題があるのか？ 149 名前：桃白白 [2012/09/03(月) 15:19:53.53 ] 引用の範疇なら問題ないだろ VBAの設問なのか？　何だったら桃白白がお答えしちゃうけど？　貼っちゃいなよ 150 名前：デフォルトの名無しさん mailto:sage [2012/09/03(月) 20:55:59.52 ] >>145 気になるから貼ってくれよ 151 名前：デフォルトの名無しさん [2012/09/03(月) 21:54:07.61 ] 質問です。環境はwindows XP , Excel2003です エクセルファイルをメールで送信するコード、つまり Application.Dialogs(xlDialogSendMail).Show を使いましてメールを送信する際、引数の"Arg1"つまり「メール宛先」に 複数人のアドレスを入れる関係上、宛先文字列が256文字を超えてしまいます。 255文字以内に収めれば、上手くメーラーが起動してメール送信準備が されるのですが、256文字を超えると、エラーが出るわけでもなく ただメールが立ち上がらないという状態になります。 対策をする前に、なぜここで256文字を超えたらダメなのか、を一応 知っておきたいです。どなたか、知っていたら教えてください! 152 名前：デフォルトの名無しさん mailto:sage [2012/09/03(月) 22:24:12.60 ] >>151 容量的な問題255バイトまで

---

---

[ 続きを読む ] / [ 携帯版 ]

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