Excel VBA 質問スレ Part61

1 名前：デフォルトの名無しさん mailto:sage [2019/04/25(木) 23:41:03.61 ID:rni/4bMj0.net] !extend:checked:vvvvv:1000:512 !extend:checked:vvvvv:1000:512 ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※前スレ Excel VBA 質問スレ Part60 https://mevius.5ch.net/test/read.cgi/tech/1552736349/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured 515 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 20:58:10.12 ID:wdWzuIo7p.net] >>514 大荒れの中レスありがとう 来週試してみます 516 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 22:18:19.39 ID:XAbM3vU30.net] >>515 ごめん for each ws in の書き間違い 517 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 22:31:58.82 ID:aMsRRK9D0.net] ん? 全シート印刷じゃダメだったの? 518 名前：デフォルトの名無しさん mailto:sage [2019/05/31(金) 22:40:38.73 ID:agbDawORM.net] >>513 ふん、おれ５００　お前が笑えるレスつけただけだろ 519 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 00:10:30.70 ID:Re37ayj0p.net] >>517 もちろん全シート一括で印刷かけてるんですけど、スプール設定？の関係で重いシートの印刷が後回しになるので10ページ1ページ2ページの3シートのファイル印刷すると10ページのシートが一番最後に印刷されちゃって不便なんです 520 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 02:54:17.07 ID:48zxZgqm0.net] ListBox使ってるんですけど、たまに表示がバグります 薄い横線がListBox内の全ての行間に表示されちゃうんです 行のフォーカスを動かすと、動かした範囲ではこの変な横線は一旦消えるんだけど、 何かをするとまた横線があらわれる こういうのって何が原因かわかりますか？ 再現性がそう高くないので、対策しづらいです 表示がおかしいだけでプログラム自体は問題なく動きます 521 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 03:41:24.97 ID:48zxZgqm0.net] >>520ですけどもしかしたら直ったかもしれないです multiSelectをfmMultiSelectExtendedに設定してるんですけど、 UserForm Initialize内で設定するのではなく プロパティウィンドウで選択して設定するようにしたら今の所出ないです 再現性があれなんで確実とは言えないんですけど 522 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 07:48:48.81 ID:FEI28S1s0.net] >>520 ListBoxに限らず、Excelのオブジェクトは変だよ。 そんなもんだと思う。 俺もこんな現象に遭遇した。 ・印刷プレビュー直後に、リストボックスを操作できなくなる。(シートを切り替えると直る。) ・MSクエリやADOを使うと、ボタンやテキストボックスの位置が、見た目と合わなくなる。 　[コマンドボタン]　　　　　　　　　　何もない部分 　　　　　↑　　　　　　　　　　　　　　　　　↑ ここにボタンがあるのに　　ここを押さないと反応しない 523 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 07:53:01.65 ID:FEI28S1s0.net] あと、なんじゃそりゃ!???? と思ったのが、 　[コマンドボタン] 　　　　↑ 　　押すと・・ 　　　　　　　　　　　　　→→→　[コマンドボタン] 　　　　↑ 　ボタンが逃げる 多分、押す前のボタン画像が左にあって、 押した後の(凹んだ状態の)画像が右にあるんだと思う。 524 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 08:43:23.59 ID:48zxZgqm0.net] >>523 論理的に解決できる方法がないから山勘に頼っていじってみて 運良く解決できたらもうけもんってことですかね 表示がぶれると、使ってる人が、このプログラム大丈夫かと心配し始めちゃうんで できるだけ避けたいところです 525 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 10:54:28.04 ID:/THuLu8v0.net] >>518 ??? バカなの? お前が500なのもお前に俺がレスしたのも誰でも分かるわ。 >>502のレスにおいて">>501"を付けるから俺に回答を求めてると判断されても仕方ないだろが。 526 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 15:58:14.75 ID:Vz6e2VkK0.net] >>525 笑えるな、答えられないやつに答えを求めないって(笑) 527 名前：デフォルトの名無しさん [2019/06/01(土) 16:00:03.94 ID:Vz6e2VkK0.net] まあ、プロさんのようだから答えられないの恥ずかしいのか(笑) あげとくは 528 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 17:24:08.45 ID:/THuLu8v0.net] >>527 煽ってもお前のレベルが低いのは変わらんぞw 相手のレベルを推しはかれないのは相手よりスキルがかなり低いからなんだが。 529 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 17:41:52.05 ID:FFwlyzcq0.net] まだやってんの 最近多い無関係の人が巻き込まれるような事件起こしそう 530 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 17:42:25.49 ID:ZZxkmLZAM.net] >>528 あら、単に引きこもりのカスでろくなの作れんて思ってるよ(笑) 531 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 17:47:36.35 ID:/THuLu8v0.net] >>530 そりゃスキルの無い奴は人を評価出来ないからなw 532 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 20:32:00.88 ID:XF0/4x+50.net] データベースでエクセルのフィールド(3)を下に読み取っていって、入ってる型が文字列以外の物が入っているかチェックしたいんですけど何かないですか？ 533 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 20:51:09.32 ID:fYRCWk9w0.net] >>532 vartypeがvbStringかどうか typenameが"String"かどうか など 534 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 22:43:59.23 ID:g0N7gK6Z0.net] >>532 わざとやってみてどうなるか確認してみよう 先頭何レコードで判断するんだっけ？ 535 名前：デフォルトの名無しさん mailto:sage [2019/06/01(土) 22:55:52.58 ID:g0N7gK6Z0.net] >>532 早速やってみたけど、逆のパターンである 「先頭に数値が入っていて途中から文字列に変化した」場合は判定できた。 具体的には数値部分だけ読み込んで文字列の部分はNULLになった。 「先頭に文字列が入っていて途中から数値に変化した」場合は全部文字列扱いになったので厳密には判定不能。 536 名前：デフォルトの名無しさん mailto:sage [2019/06/02(日) 18:41:53.51 ID:3MovPWtK0.net] 初心者なので意味がわかりづらかったらすみません まず、やりたいことは 1.ユーザーにB2〜E2あたりに文字を入力してもらう 2.それを5行前後繰り返す 3.この後にボタンを押してもらう (以降マクロ処理) 4.入力して貰った行の各左セル(A列)に営業日(月初)を入力する 入力内容を下の行にコピペして、A列日付だけ翌営業日にする それを月末日まで繰り返す これを実現したい場合、営業日付をどう表示し、どう繰り返せばよいか検討がつきません アドバイス頂けませんでしょうか 日付に関してyyyymmのみユーザーに手入力して貰う予定で、それを利用できるかなと思っています 537 名前：デフォルトの名無しさん mailto:sage [2019/06/02(日) 19:17:16.23 ID:wosufaXU0.net] >>536 Sub foo() コピー元_行数 = Cells(Rows.Count, 2).End(xlUp).Row - 1 Range(Cells(2, 2), Cells(コピー元_行数 + 1, 5)).Copy 処理年 = InputBox("処理する年を四桁で入力してください", "", Format(Date, "yyyy")) 処理月 = InputBox("処理する月を1桁で入力してください", "", Format(Date, "m")) 'ここに上記が数値以外なら終了させる分岐をかます。めんどいのでしてない For i = 1 To Day(DateSerial(処理年, 処理月 + 1, 0)) Cells(コピー元_行数 * (i - 1) + 2, 2).PasteSpecial Range(Cells(コピー元_行数 * (i - 1) + 2, 1), Cells(コピー元_行数 * i + 1, 1)).Value = _ DateSerial(処理年, 処理月, i) Next End Sub 538 名前：デフォルトの名無しさん mailto:sage [2019/06/03(月) 23:29:52.65 ID:+V4WoVbB0.net] >>535 上にあるようにvartypeだとだめかね？ 539 名前：デフォルトの名無しさん [2019/06/04(火) 00:44:40.62 ID:Vr0YkSWUa.net] 教えてください。 ActiveCell.EntireRow.Copy Destination これで「任意のセル選択中で1行コピー」になりますが、 改造して「任意の複数セル選択中の複数行をコピー」に変えたいんですがわかりますか？ 540 名前：デフォルトの名無しさん mailto:sage [2019/06/04(火) 01:01:51.67 ID:sjSsEz0E0.net] 仮面ライダー本郷猛は改造人間である。彼を改造したショッカーは世界制覇を企む悪の秘密結社である。仮面ライダーは人間の自由のためにショッカーと戦うのだ！ 541 名前：デフォルトの名無しさん [2019/06/04(火) 07:28:25.36 ID:CwYFwdXYa.net] >>539 Selection で自己解決したんですが、 ThisWorkbook.Worksheets("sheetA").Activate Selection.EntireRow.Copy Destination:=ThisWorkbook.Worksheets("SheetB").Range("A57:A62") ThisWorkbook.Worksheets("SheetB").Activate Range("A3:I4").Select End Sub で所定の6行のスペースにペーストするんですが、選択セルが5以下だと重複して貼り付けられます。 重複しない方法を教えてください。 542 名前：デフォルトの名無しさん mailto:sage [2019/06/04(火) 07:51:19.62 ID:kIR0GcUMx.net] コピー先のセルのアドレスをシンプルに"A57"に変えるだけでいいと思う 543 名前：デフォルトの名無しさん mailto:sage [2019/06/04(火) 08:26:51.88 ID:0SaUhvTtM.net] >>538 それだと対象のブックを開かなきゃダメじゃん 544 名前：デフォルトの名無しさん mailto:sage [2019/06/04(火) 11:03:51.11 ID:ABA6WeJwH.net] 【速報】金券五百円分とすかいらーく優侍券をすぐもらえる　 https://pbs.twimg.com/media/D8I_sqPU0AEizjq.jpg　　　 　　　 �@　スマホでたいむばんくを入手　　　　 �A　会員登録を済ませる �B　マイページへ移動する　　　 �C　招待コード→招待コードを入力する [Rirz Tu]（スペース抜き）　　　　　 　 今なら更に4日18時までの登録で2倍の600円の紹介金を入手 クオカードとすかいらーく優待券を両方ゲットできます。　　　　　 　　　　　　　 数分の作業でできますのでご利用下さい。　　　 545 名前：デフォルトの名無しさん mailto:sage [2019/06/04(火) 11:40:41.30 ID:ClB/ngZb0.net] ここにも来たかフィッシング詐欺 546 名前：デフォルトの名無しさん mailto:sage [2019/06/04(火) 13:24:40.51 ID:g1r7g3uN0.net] >>544 TVCM見た後に入れた 547 名前：デフォルトの名無しさん [2019/06/04(火) 18:55:29.74 ID:w6NTuaQma.net] >>542 できました。ありがとうございます。 548 名前：デフォルトの名無しさん mailto:sage [2019/06/04(火) 22:55:20.87 ID:JKzLDG9lp.net] 直前に開いたファイルのキャッシュ的なものを参照して情報を取得することってできますか？ 例えば直前に開いて印刷して閉じて消去したファイルのA1セルに記載の値を別ファイルのB1セルに転記する、みたいな 549 名前：デフォルトの名無しさん [2019/06/04(火) 23:07:17.09 ID:e2Nk6zam0.net] >>548 そんなの知るか 550 名前：デフォルトの名無しさん mailto:sage [2019/06/04(火) 23:20:09.51 ID:GvHzI0140.net] >>548 必ずバックアップしてから開くようにバッチファイル作ればいいだけじゃね 551 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 00:02:17.80 ID:b19uQdIQp.net] >>549 知らないならわざわざ書き込まなくていいよw 552 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 09:28:21.10 ID:d6kiH4sy0.net] 印刷時には転記先のファイルが必ず開いてる状態なの？ それならWorkbook_BeforeCloseで閉じる直前に転記は？ 553 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 14:54:24.90 ID:1kcRpkSq0.net] これはそんなの知るかという気持ちもよく分かる。 工夫次第でどうとでもなるけど、そういう問題かどうかをはっきりさせるべき。 そういう仕組みを作ることなくできるかと言われれば、できないと答えるだろう。 工夫でそういう仕組みを作りたいというなら、それについて自分の考えを述べるべきだ。 VBAの問題じゃなくて考え方を考える問題なんだから単純なスキルの問題ではない。 554 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 15:52:32.95 ID:bp5RZsKU0.net] 事前に、ファイルを閉じる前や消す前に準備しておけばどうともできる 他人が使ったパソコンをこっそりのぞき見したいなら、それはかなり難しい 不可能じゃないけど、現時点では動機が不明で教えるべきじゃないと思われるので書かない 555 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 17:22:15.93 ID:b19uQdIQp.net] >> 556 名前：デフォルトの名無しさん [2019/06/05(水) 19:30:41.08 ID:5zNRcsxz8] 日・時・分が漢字で入力されたエクセルの文字列データを、時間データに変換したいです。 どのようにすればよいでしょうか？出来れば、マクロでお願いします。 よろしくお願いします。 例） -- 2日8時間　→　56:00 2時間30分 →　2:30 5分 →　0:05 4時間　→　4:00 557 名前：デフォルトの名無しさん [2019/06/05(水) 19:31:41.43 ID:5zNRcsxz8] ユーザ関数で…… 標準モジュールに下記のコードを入れ、適当なセルに =fTimestamp(A1)　の様に式を入れて下さい。 式を入れたセルの書式はユーザ書式で　[h]:mm としてください。 Function fTimestamp(sData As String) As Date 　　For i = 1 To Len(sData) 　　　　sOne = Mid(sData, i, 1) 　　　　If IsNumeric(sOne) Then 　　　　　　sNum = sNum & sOne 　　　　ElseIf sOne = "日" Then 　　　　　　fTimestamp = fTimestamp + Int(sNum) 　　　　　　sNum = "" 　　　　ElseIf sOne = "時" Then 　　　　　　fTimestamp = fTimestamp + Int(sNum) / 24 　　　　　　sNum = "" 　　　　ElseIf sOne = "分" Then 　　　　　　fTimestamp = fTimestamp + Int(sNum) / (24 * 60) 　　　　　　sNum = "" 　　　　End If 　　Next i End Function 558 名前：デフォルトの名無しさん [2019/06/05(水) 19:38:17.24 ID:5zNRcsxz8] >>556です。 >>557を試したところ、 2日8時間　→　56:00 2時間30分 →　2:30 5分 →　0:05 4時間　→　4:00 は上手くいきましたが、秒変換がうまくいきません。 例） 5分4秒 >>557 に単純に、 　　　　ElseIf sOne = "分" Then 　　　　　　fTimestamp = fTimestamp + Int(sNum) / (24 * 60 * 60) 　　　　　　sNum = "" を追加しての結果です(^^;) 何がいけないのでしょう？ 559 名前：デフォルトの名無しさん [2019/06/05(水) 19:41:46.35 ID:5zNRcsxz8] >>558 間違えました。追加したのは 　　　　ElseIf sOne = "秒" Then 　　　　　　fTimestamp = fTimestamp + Int(sNum) / (24 * 60 * 60) 　　　　　　sNum = "" です。お手数をおかけしますが何方かご助力いただけると助かります(^^: 560 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 19:45:36.22 ID:UgnFbYyua.net] ファイルの履歴とか拾うのかな？ 561 名前：デフォルトの名無しさん [2019/06/05(水) 20:56:36.68 ID:5zNRcsxz8] >>560 よくわかりませんが、単純にエクセルのセルに文字列で ◯時間〇分●秒単位で入力されていて その列の合計と平均を求める感じです。 562 名前：デフォルトの名無しさん [2019/06/05(水) 20:58:28.96 ID:5zNRcsxz8] 文字列形式で入力されているので先ずは数値に変換しないとどうにもなりません。 563 名前：デフォルトの名無しさん [2019/06/05(水) 21:22:31.39 ID:5zNRcsxz8] >>556 ~ >>559 です。わかりにくいので、再度まとめ直させていただきますと(_ _) 以下の通りです。 日・時・分が漢字で入力されたエクセルの文字列データを、時間データに変換したいです。 どのようにすればよいでしょうか？ 例） 2日8時間 → 56:00 2時間30分 → 2:30 5分 → 0:05 4時間 → 4:00 以下のマクロを参考にしたところし分までは成功しました。 564 名前：デフォルトの名無しさん [2019/06/05(水) 21:29:26.90 ID:5zNRcsxz8] >>563 の続きです。 ユーザ関数で…… 標準モジュールに下記のコードを入れ、適当なセルに =fTimestamp(A1) の様に式を入力。 式を入れたセルの書式は [h]:mm 565 名前：デフォルトの名無しさん [2019/06/05(水) 21:34:37.94 ID:5zNRcsxz8] >>564の続きです。 Function fTimestamp(sData As String) As Date For i = 1 To Len(sData) sOne = Mid(sData, i, 1) If IsNumeric(sOne) Then sNum = sNum & sOne ElseIf sOne = "日" Then fTimestamp = fTimestamp + Int(sNum) sNum = "" ElseIf sOne = "時" Then fTimestamp = fTimestamp + Int(sNum) / 24 sNum = "" ElseIf sOne = "分" Then fTimestamp = fTimestamp + Int(sNum) / (24 * 60) sNum = "" End If Next i End Function 566 名前：デフォルトの名無しさん [2019/06/05(水) 21:35:38.04 ID:5zNRcsxz8] >>565の続きです。 次に分まで（例　5分2秒）実現するために 以下を感で追加してみたところ失敗しました。 ElseIf sOne = "秒" Then fTimestamp = fTimestamp + Int(sNum) / (24 * 60 * 60) sNum = "" 無理を言って申し訳ありませんが、何が悪いのかアドバイス いただけると幸いです。何卒よろしくお願いします。 567 名前：デフォルトの名無しさん [2019/06/05(水) 21:41:19.12 ID:5zNRcsxz8] >>566 次に秒までの間違いでした(_ _) 568 名前：デフォルトの名無しさん [2019/06/05(水) 22:34:22.55 ID:5zNRcsxz8] >>566 なぜか (24 * 60 * 60) の代わりに 86400 にするとうまくいく感じです。。。 なぜ？？？ 569 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 20:51:53.11 ID:zo8mZEUL0.net] >>560 > 消去したファイルのA1セルに記載の値 なので履歴じゃダメだろうな マジでなんのためにそんなことをしたいのがさっぱりわからん… 570 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 22:41:29.46 ID:4nGxoieG0.net] >>537 遅くなりましたがありがとうございました！とても参考になりました おかげさまでメイン処理はひとまず形になりました ツール完成させられるよう頑張ります 571 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 23:22:07.87 ID:Uovi79l30.net] >>570 こんなこともわからんような馬鹿が作ったものを使わされるとか 572 名前：デフォルトの名無しさん mailto:sage [2019/06/05(水) 23:37:24.78 ID:PwgeLPYz0.net] >>571 人間性に問題のある君と同じ職場よりは大分マシだろう 573 名前：デフォルトの名無しさん [2019/06/05(水) 23:48:39.29 ID:70FqVZZPd.net] いやいや ここは御大層に「ツール」とか書かれて吹き出す場面だろ 574 名前：デフォルトの名無しさん mailto:sage [2019/06/06(木) 00:27:01.25 ID:vR0zkRe5M.net] ここは、あれだ。ﾌﾟｰｸｽｸｽ、ﾏｼﾞ受けるんですけど！というやつだ。 575 名前：デフォルトの名無しさん mailto:sage [2019/06/06(木) 06:36:27.46 ID:ME671i1fx.net] Use after free攻撃のやり方を聞かれてるのと一緒だよなこれ 576 名前：デフォルトの名無しさん mailto:sage [2019/06/06(木) 12:05:19.65 ID:vG+mGYiZ0.net] まあな、Excelの標準機能で出来ることも知らん奴が、作りたいものを考えて質問するんだよな だけど、ちょっと知ったかぶってどんなプログラムを作りたいとか書くけど 普通にExcelの機能で出来ることも、質問してるんだよな 動作仕様をかける奴は普通VBAのマクロも作れる 作れないやつの動作仕様ってごみなんだよな、何がしたいかだけ書けよと思う 577 名前：デフォルトの名無しさん mailto:sage [2019/06/06(木) 12:22:02.47 ID:GuX8oFrp0.net] >>576 日本語でおｋ 578 名前：デフォルトの名無しさん mailto:sage [2019/06/06(木) 12:59:11.37 ID:vG+mGYiZ0.net] >>577 すみません、日本語難しいどこですか？ 579 名前：デフォルトの名無しさん mailto:sage [2019/06/06(木) 15:41:00.01 ID:GuX8oFrp0.net] >>578 天丼やめろｗ 580 名前：デフォルトの名無しさん mailto:sage [2019/06/06(木) 20:23:11.53 ID:ulk3mDRi0.net] 日本人の俺でもわからんｗ 581 名前：デフォルトの名無しさん mailto:sage [2019/06/06(木) 22:44:54.22 ID:17p7tBKQ0.net] 標準機能が嫌いなんだろう。 あとは、VLOOKUPでも出来るけど、 遅いし面倒くさいからADO+SQLでやるとかさ。 582 名前：デフォルトの名無しさん [2019/06/07(金) 01:08:10.00 ID:RApS/5ei0.net] ファイルの保存先の権限がなくて、別のユーザーのアカウントとパスワードで保存できる？？ 583 名前：デフォルトの名無しさん mailto:sage [2019/06/07(金) 07:52:48.12 ID:ONMYVTJLM.net] VBA関係ある？ 584 名前：デフォルトの名無しさん [2019/06/07(金) 12:45:57.13 ID:6q38d7bCM.net] あるよ 585 名前：中国人 [2019/06/07(金) 15:55:31.64 ID:DiCkvzGr0.net] ないあるよ 586 名前：デフォルトの名無しさん mailto:sage [2019/06/07(金) 20:52:52.69 ID:Xpa0BB/Y0.net] どうやるんだそれ・・。 OS上でOSでも動かすのか? 587 名前：デフォルトの名無しさん mailto:sage [2019/06/07(金) 20:58:22.20 ID:hQ9V7YAV0.net] そういや、Windows 3.1はMS-DOSの上で動いていたっけ… 588 名前：デフォルトの名無しさん mailto:sage [2019/06/07(金) 21:14:02.26 ID:WJdNdQhR0.net] Win3.1はミドルウェア 589 名前：デフォルトの名無しさん mailto:sage [2019/06/07(金) 21:30:42.69 ID:4L9BxcJD0.net] c:¥> win だっけ？ 590 名前：デフォルトの名無しさん mailto:sage [2019/06/07(金) 21:36:57.74 ID:fqhLtcXL0.net] フロッピー12枚だか14枚だか組みだったな 591 名前：デフォルトの名無しさん mailto:sage [2019/06/07(金) 23:29:54.75 ID:5cD0N+lz0.net] >>582 それってネットワーク先の話? 共有フォルダでの読み書きとか? 結構難しい。 592 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 05:37:42.55 ID:fRZrFeuoa.net] excelのセルに記載された文字を、 PDFに位置指定して、テキスト挿入できますか？ 593 名前：デフォルトの名無しさん [2019/06/09(日) 07:51:19.35 ID:6FBaXgmQM.net] できます 594 名前：580 [2019/06/09(日) 07:52:18.86 ID:6FBaXgmQM.net] >>593 できるかどうかを聞いているのではない。 やり方を聞いておるのだ。 595 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 08:13:30.81 ID:y15MKF+M0.net] ※わざとです 596 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 08:14:03.36 ID:fRZrFeuoa.net] >>593 a=cells(1,1).value b=cells(2,1).value �@abc.pdfをオープン �A3p目の左上を起点に左から100、上から50の位置に、8ptで幅20の黒色で、aの内容のテキスト挿入 if b=1 then �B3p目の左上起点の左から200上から300の位置に、黒色の縦10幅10の円を挿入 else if b=2 then �C上記�Bの位置違いパターン endif この�@�A�Bを教えていただきたいです。 597 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 09:04:09.38 ID:LJTYegK80.net] PDF直接作るの超めんどいぞ Excelで位置確認ずらしていきながら合わせるって方法取ったほうが良い 598 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 09:27:58.90 ID:fRZrFeuoa.net] >>597 マジかぁ pdfは書式が既にあって、それをまずエクセル化するところからしなくてはならない excelのセルから抽出し、wordに入力するのも大変？ 599 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 09:32:56.69 ID:LJTYegK80.net] >>598 Excel VBAでワードを開く方法がある https://tonari-it.com/excel-vba-word-application/ wordの細かい所をどこまで触るかによると思う 単純作業なら全然難しくないよ 600 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 09:45:03.10 ID:fRZrFeuoa.net] >>599 ありがとう、ちょっと読み込んでみる やりたいことは要は、エクセルにずらーっとリストがあって、その内容を、 雇用契約書の穴埋め書式みたいな他のファイル（エクセル、ワード、pdfあり）に展開したい 展開内容はセル内容の挿入と、履歴書の男・女みたいに、○を挿入する形がある 601 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 09:52:34.55 ID:Apn2tV9M0.net] ○で囲むのは止めたほうが良い。ずれる 以下のような形に変えれるなら買えたほうが良い。 □男　　?女 602 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 09:53:01.65 ID:Apn2tV9M0.net] 文字化けした。 女の左にあるのはチェックマークね 603 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:05:38.50 ID:fRZrFeuoa.net] >>601 いや、書式はもう決まってんのよ 変えれるものじゃないんだ □の方が楽だけどなぁ 604 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:07:50.02 ID:qEIP4aE00.net] >>599 参照設定してるのに、CreateObject(“Word.Application”)って何? 605 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:11:05.04 ID:Apn2tV9M0.net] >>603 そうか、じゃぁ・・・ 頑張って！！ 606 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:13:10.62 ID:47rhBQpmx.net] >>604 参照設定はあくまで参照先ライブラリの型をインテリセンスや型指定でネイティブに使えるようにするための設定 ワードのアプリケーションのインスタンスを生成しないとエクセルからワードの操作はできない 607 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:15:31.89 ID:qEIP4aE00.net] >>606 そういうことじゃなくて、参照設定でその書き方? っていう。 それやると、レイトバインドとアーリーバインド、どっちになるの? 608 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:17:10.52 ID:qQGT2b0kM.net] >>605 最終手段はワードとpdfは画像化してエクセルに貼り付けて、そこでマクロるかな… 609 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:19:23.94 ID:qEIP4aE00.net] >>606 何か変だと思って試したけど、 こうか Dim w As Word.Application Set w = New Word.Application こうじゃない? Dim w As New Word.Application 610 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:29:49.90 ID:47rhBQpmx.net] >>607 >>609 参照設定したときに参照先ライブラリのクラスについて必ずNewキーワードでインスタンス生成しないといけないという決まりはない 参照設定して変数にワードのアプリケーション型を適用してる時点でアーリーバインドになる Newキーワードで生成したインスタンスのポインタを変数で受けてもCreateObjectから返ってくるポインタを変数で受けても同じ 611 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 10:36:03.49 ID:47rhBQpmx.net] というか、参照設定時のインスタンス生成にNew使わないと駄目なんて決まりがあったら、GetObjectで他アプリのインスタンス取得して操作したいときはどうなるのって話になるよな 612 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 11:12:20.95 ID:wmlwj4f30.net] >>610-611 わざわざ参照設定してるのにCreateObject(…)するアホがいるとは… 613 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 11:16:29.03 ID:Apn2tV9M0.net] CreateObjectも参照設定もimportだから、どっちか一つでいいんじゃないの？ 両方やっても問題ないけど意味はないと思う あんまリンク内容見ずに貼ってしまった俺が悪いな、すまん 614 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 13:34:23.02 ID:IXdTYEKb0.net] 山椒設定はライブラリバージョン古いPCじゃ即フリーズじゃなかったっけ 615 名前：デフォルトの名無しさん mailto:sage [2019/06/09(日) 13:37:36.61 ID:WDGftzb80.net] 配布するなら、参照設定でプログラミングしてテストして、参照設定外して createobject方式にして配布 配布先で参照設定か外れることがまれによくあるので、こうしとくと無難

---

---

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

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