- 1 名前：デフォルトの名無しさん mailto:sage [2018/09/10(月) 21:42:39.57 ID:K1uuwFLt.net]
- ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part56
mevius.5ch.net/test/read.cgi/tech/1534976724/
- 863 名前：デフォルトの名無しさん [2018/11/01(木) 19:18:10.81 ID:Nl3jEz8g.net]
- >>823
ボタンを挿入して右クリックしてマクロの登録を選び実行させたいプロシージャを選ぶだけ
- 864 名前：デフォルトの名無しさん mailto:sage [2018/11/01(木) 19:22:20.09 ID:9hAL4zo4.net]
- >>824
直線を引く直前の状態にするプロシージャって簡単に書けるのかい?
- 865 名前：デフォルトの名無しさん mailto:sage [2018/11/01(木) 19:24:41.75 ID:9hAL4zo4.net]
- >>820
やったこと無いけどHTMLメールにして本文をHTMLにすれば良いんじゃない?
あとはテキストメール作成と同じじゃないの?
- 866 名前：デフォルトの名無しさん mailto:sage [2018/11/01(木) 19:26:55.17 ID:1Z/ZXoar.net]
- >>820
HTML書けるならこの辺りを見ればわかるだろ
https://docs.microsoft.com/en-us/office/vba/api/outlook.mailitem.bodyformat
- 867 名前：デフォルトの名無しさん [2018/11/01(木) 19:30:44.64 ID:Nl3jEz8g.net]
- >>826
じゃ具体的なコードはどうなるの？
例えば、「こんにちは、うんちと申します。」の文で、うんちを太字で茶色にしたい場合。
- 868 名前：デフォルトの名無しさん [2018/11/01(木) 19:33:37.59 ID:Nl3jEz8g.net]
- >>827
こんにちは、<B><font color=brown>うんち</font></B>と申します。
？
- 869 名前：デフォルトの名無しさん mailto:sage [2018/11/01(木) 23:23:17.57 ID:EZF4jYAF.net]
- >>822
できないから聞いたんだが？
- 870 名前：デフォルトの名無しさん mailto:sage [2018/11/01(木) 23:35:45.63 ID:NdKTTFxC.net]
- できるって言ってる人は質問をよく理解してないんだと思う
- 871 名前：デフォルトの名無しさん [2018/11/01(木) 23:45:47.15 ID:BwvtJmQs.net]
- この板は日本語が読めない低学歴知恵遅れが多いのはあってる
えてして書いてある要件とまったく違うもんをあげてくるよくいる軽い池沼入ってるのと似てる
- 872 名前：デフォルトの名無しさん mailto:sage [2018/11/01(木) 23:59:15.18 ID:8GU0aFYB.net]
- お互い様
- 873 名前：デフォルトの名無しさん mailto:sage [2018/11/02(金) 00:46:25.82 ID:iMC20ra8.net]
- >>16
Excelのマクロの記録はVBAコードで表現できないものは原則できない
操作自体の記録再生ができるUWSCとかRPAといったツールを呼び出せばできる
- 874 名前：デフォルトの名無しさん mailto:sage [2018/11/02(金) 06:47:30.99 ID:Cpir13NG.net]
- Sendkeysで無理くりリボンメニューの直線を選択するコードを作ってショートカット割り当てる位しかないと思う
- 875 名前：デフォルトの名無しさん [2018/11/02(金) 07:54:22.50 ID:EKeu1zQN.net]
- >>830
あなたはサル以下ということだ。ウイッキー。
- 876 名前：デフォルトの名無しさん mailto:sage [2018/11/02(金) 10:00:17.95 ID:IpqW30ow.net]
- >>818
あれ？ まだコードあがってないですね。
じゃぁExcel2010用ですが、サンプルを、、、
目的に合わせてShapeIDを変えてください。
Sub CreateShape()
Dim ShpID As Long ' ShapetypeID
Dim iShpCnt As Long ' Shape Cou
- 877 名前：nt (追加待ち判定)
Dim SHP As Variant ' Loop用Shape
' Create Shape
'--------------------------------
ShpID = 409 'Freeformの場合
' ShpID = 1119 'Ovalの場合
' ShpID = 1042 'LineConnectorの場合
iShpCnt = ActiveSheet.Shapes.Count
Application.CommandBars.FindControl(ID:=ShpID).Execute
Do
DoEvents
Loop While iShpCnt = ActiveSheet.Shapes.Count
End Sub
描かずに連続で押すと処理が入れ子になってしまうのが
難点ですが、、、 [] - [ここ壊れてます]
- 878 名前：デフォルトの名無しさん mailto:sage [2018/11/02(金) 10:56:22.32 ID:N4XXlewl.net]
- >>837
なるほど
- 879 名前：デフォルトの名無しさん mailto:sage [2018/11/02(金) 12:39:25.94 ID:ouVO3wBC.net]
- >>837
できた！ありがとうございます！
- 880 名前：デフォルトの名無しさん mailto:sage [2018/11/02(金) 12:40:29.21 ID:m6WMCehM.net]
- >>837
これで出来たんだね。
コード書ける環境じゃ無いから試せなかったけど、この方法かUIAutomation使うかどちらかかなあと思ってた。
CommandBarControl.ExecuteでもShapeの場合トグルっぱい動作だから思う状態になるか自信が無かった。
- 881 名前：デフォルトの名無しさん mailto:sage [2018/11/02(金) 12:44:20.35 ID:m6WMCehM.net]
- あれ、Do〜Loopの処理は気付かんかったなあ。
自分が作成してたら動かんかったと結論出してたかも。
- 882 名前：デフォルトの名無しさん mailto:sage [2018/11/02(金) 12:50:59.79 ID:IpqW30ow.net]
- >>841
StackOverFlowかどっかのサイトの受け売りなんですけどね。
どこからもらったのか忘れた、、、
- 883 名前：デフォルトの名無しさん mailto:sage [2018/11/02(金) 12:57:46.92 ID:IpqW30ow.net]
- >>837
あ、後続の処理用の変数消し忘れてた。
Dim SHP の行は不要です。
- 884 名前：デフォルトの名無しさん mailto:sage [2018/11/02(金) 17:17:11.16 ID:ouVO3wBC.net]
- ちなみになんだけどDoLoopはなんの為にあるんですかね？
なくても同じ動きすんだけど。
- 885 名前：デフォルトの名無しさん mailto:sage [2018/11/02(金) 17:57:06.50 ID:oqBXcCoW.net]
- 書き終わってShapeオブジェクトが作成されるまで、次の処理を待機
元々書いた後に何か処理をするプログラムの一部だったんだと思う
今回はCommandBarControlのコマンドが実行された時点で仕事は終わってるから要らないかと
- 886 名前：デフォルトの名無しさん mailto:sage [2018/11/02(金) 18:54:32.40 ID:m6WMCehM.net]
- >>845
ループ無くても動くんなら思った通りだった。
違いが有るとすれば自分はFindControlは使わず、コントロールの指定もIDじゃなくて名前使う所。
名前はFor Each使ってCommandBarを列挙して名前をDebug.Print、そのCommandBarに対してFor EachでCommandBarControlを列挙して名前をDebug.Printなどで調べる。
- 887 名前：デフォルトの名無しさん mailto:sage [2018/11/02(金) 19:49:18.45 ID:IpqW30ow.net]
- >>844
ん？ Do - Loop 部分ないとちゃんと動かんよ？
VBEから実行してない？
ボタンに割り付けると、ボタン押した瞬間に十時カーソル消えるはず。
Excel2010より新しいVersionは動きが違うの？
- 888 名前：デフォルトの名無しさん mailto:sage [2018/11/02(金) 20:57:01.00 ID:/dr4nYVn.net]
- >>847
ボタン押したらクリックしたら線がかけるようになったよ。
2003でも動いたし、2007でも動いた。
- 889 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 00:21:42.99 ID:N3tWJlln.net]
- Excel2010でも試したけど、ループのないプロシージャで描けたよ
勿論ボタンのクリックイベントから
- 890 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 00:44:19.57 ID:N3tWJlln.net]
- フォームコントロールに割り当てると描けないっぽい
ActiveXコントロールのイベントで呼べば描けるが
フォームコントロールって何のために有るんだろう・・・
- 891 名前：デフォルトの名無しさん [2018/11/03(土) 04:34:07.93 ID:/0NNzwPk.net]
- 任意のセルをコピーして所定の場所にペーストするマクロを作りたいです。
セルをコピーした状態からマクロ記録を取って、ペーストするだけのマクロを作ったのですがうまくいきません。
教えてください！
- 892 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 06:28:54.02 ID:5ShzkuEH.net]
- >>850
VBAで作るフォームと処理を共有できる、とか？
- 893 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 06:31:10.97 ID:5ShzkuEH.net]
- >>851
マクロの記録だと余計な処理が追加されるから、それを削るだけでうまくいくはず
まずは記録したマクロをここに書いてみ
ただしCtrlを押しながら複数のセルをコピーした場合はかなり難しくなる
- 894 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 06:39:13.96 ID:IAxxklmh.net]
- >>850
ああ、なるほど。
確かにフォームボタン使ってた。
そのために余計な苦労をしたってわけか。
情報Thx!
- 895 名前：デフォルトの名無しさん [2018/11/03(土) 11:31:29.48 ID:/0NNzwPk.net]
- >>853
Sub Macro5()
'
' Macro5 Macro
'
'
Range("AH11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
こんな感じです。これはセル１つ選択です。（最終的には複数選択してシート間でコピペする予定です）
- 896 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 11:43:19.50 ID:S6AysWL6.net]
- 社名 金額 部門
================
A社 1000円 営業
A社 2000円 事務
A社 1500円 事務
A社 3000円 販売
B社 1500円 事務
B社 3500円 営業
C社 1000円 営業
C社 3000円 営業
C社 1500円 販売
D社 2000円 事務
こんな感じのA社⇒D社のように整列されたデータに対して
- 897 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 11:43:51.55 ID:S6AysWL6.net]
- 社名 金額 部門
================
A社 1000円 営業
A社 2000円 事務
A社 1500円 事務
A社 3000円 販売
A社 営業計 1000円 <
事務計 3500円 <
販売計 3000円 <
計 7500円 <
B社 1500円 事務
B社 3500円 営業
B社 営業計 3500円 <
事務計 1500円 <
計 5000円 <
C社 1000円 営業
C社 3000円 営業
C社 1500円 販売
C社 営業計 4000円 <
販売計 1500円 <
計 5500円 <
D社 2000円 事務
事務計 2000円 <
計 2000円 <
全社 営業計 8500円 <
事務計 7000円 <
販売計 4500円 <
計 20000円 <
こんな感じに行の間に小計、最後に合計を挿入するようなコードありますか？( < が追加行）
小計は必ず 営業、事務、販売の順番に並び、0円の場合は行自体挿入しません
実際ののデータは会社数、部門共に30以上あるので速度重視であれば望ましいです
- 898 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 12:46:22.45 ID:q2N3VeHV.net]
- そんなもんExcelのグループ集計で一発
お前に必要なのはVBAではなくExcelの入門書
- 899 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 13:03:36.46 ID:3VcH/mb2.net]
- >>829
span使え
- 900 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 13:12:27.13 ID:78HW/kSp.net]
- >>857
とりあえずピボットでググったら？
- 901 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 13:18:18.27 ID:3VcH/mb2.net]
- 標準のエディタインライン展開できないとかsubの引数名自動で変えられないとかクソすぎ
誰かもっと開発しやすいやつをくれ
- 902 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 13:30:31.88 ID:S6AysWL6.net]
- 集計したい訳じゃなくデータを作成したいんだって
- 903 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 13:33:02.71 ID:N8ATSODS.net]
- >>862
だからそれはグループ集計でできる
- 904 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 13:38:02.57 ID:S6AysWL6.net]
- VBAで作るには？
- 905 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 13:47:38.58 ID:N8ATSODS.net]
- グループ集計の操作をマクロで記録するといいよ
- 906 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 15:14:54.13 ID:NeGXChns.net]
- >>855
単にシート間で複数セルの値を同期させたいだけならそもそもクリップボードを経由しない方が早いのでは？
VBAでコピーしないでワークシート関数でシート間参照させるとか、コピー元のセルのValueプロパティなりFormulaプロパティなり、必ずコピーしなきゃいけないプロパティだけをコピー先のプロパティに直接代入するとか
ユーザーによるコピー操作そのものを再現しなきゃいけない理由でもあるの？
- 907 名前：デフォルトの名無しさん [2018/11/03(土) 18:06:58.76 ID:/0NNzwPk.net]
- >>866
シート間で照合するデータだとマクロ使わずできるのですが、
コピー元のシートのデータが大きいので、ペースト先のシートには必要なものだけを張り付けて、
印刷用のフォーマットに変換させて、終わったらペースト先のシートは保存せず元に戻すという操作をしたいと考えています。
お願いします。
- 908 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 19:32:11.39 ID:NeGXChns.net]
- >>867
元データの書式や印刷用シートの体裁、印刷するデータの抽出方法などがわからないが、やりたいことからすると、Range.TextプロパティかValueプロパティの値をコピー先にそのままコピーするだけで良さそう
コピー元とコピー先のデータの体裁によっては、Range.AdvancedFilterメソッドで印刷用シートの方にフィルタ結果を出力するとかもできる
- 909 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 22:51:34.85 ID:MUI16VQU.net]
- クラサバシステムを作るのは現実的なのでしょうか？
DBは相性からいってSQLServerで
- 910 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 22:58:31.43 ID:zFR/cOIP.net]
- >>869
Excelで作ろうとしてる理由が能力の問題なのか、それともExcelのワークシートの機能が必要だからなのか、それ次第だな
C#やVB.NETやJavaで作れる能力があるなら普通に作れるし、無いなら無理
能力が無いならAccessでも使ってろ
- 911 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 23:03:55.31 ID:e+FwThFa.net]
- 能力の問題なら今ならOffice365のPowerAppsおすすめ
たぶん>>869が手作りするより遥かに高品質なものが一瞬で作れるよ
- 912 名前：デフォルトの名無しさん mailto:sage [2018/11/03(土) 23:12:01.99 ID:MUI16VQU.net]
- 作りたいのは、Activitiのエンジンを使ったWFシステムです
Excelで検討する理由は、ADによるシートとセルの権限管理ですかね
- 913 名前：デフォルトの名無しさん mailto:sage [2018/11/04(日) 00:03:26.74 ID:Ujv6OCQm.net]
- いやクラサバだったら権限管理はSQL Server側でやるもんだろ
当然、SQL Serverなら問題なくADで制御できる
その調子じゃ厳しそうだね
- 914 名前：デフォルトの名無しさん mailto:sage [2018/11/04(日) 00:32:40.13 ID:xCAdckZO.net]
- Excelのレベルで権限制御したところで、別のExcelシート作ってデータソース参照するだけでやりたい放題やで
Excelに限った話ではなくC#などでクライアント作る場合でも同じことで、プロなら絶対にありえない設計
- 915 名前：デフォルトの名無しさん mailto:sage [2018/11/04(日) 07:35:57.46 ID:dL+sv/7f.net]
- ここで板違いの質問を堂々とするレベルなんだから w
- 916 名前：デフォルトの名無しさん [2018/11/05(月) 12:48:07.93 ID:g2XKp1gu.net]
- またプロさんイキっとるのw
- 917 名前：デフォルトの名無しさん [2018/11/05(月) 23:37:43.98 ID:Vz2xlIAK.net]
- >>868
Range.Textプロパティ、Valueプロパティが良く理解できなくて困ってます。
セルの指定で合ってますか？
コピー元の表の中からから1行（５セル分）コピーして、隣のシートの所定の位置に貼り付けたいです。
１行選択した後、マクロ起動させて隣のシートに張付けという操作です。頼みます、教えてください！
- 918 名前：デフォルトの名無しさん mailto:sage [2018/11/06(火) 00:56:10.22 ID:bmwIjcqH.net]
- >>877
Sub CopyToPrintForm()
ThisWorkbook.Worksheets("データ用シート名").Range("コピー元セルの行番号:コピー元セルの行番号").Copy Destination:= ThisWorkbook.Worksheets("印刷用シート名").Range("コピー先セルの行番号:コピー先セルの行番号")
End Sub
- 919 名前：デフォルトの名無しさん mailto:sage [2018/11/06(火) 01:09:36.50 ID:bmwIjcqH.net]
- >>877
印刷するデータの行をユーザーに選ばせる場合、ユーザーに行選択させた状態で以下のマクロを実行させるようにするとかでいいだろ
文字通り一行コピーしてしまうので要注意
>>877
Sub CopyToPrintForm()
ThisWorkbook.Worksheets("データ用シート名").Activate
ActiveCell.EntireRow.Copy Destination:= ThisWorkbook.Worksheets("印刷用シート名").Range("コピー先セルの行番号:コピー先セルの行番号")
End Sub
- 920 名前：デフォルトの名無しさん [2018/11/06(火) 01:38:13.14 ID:ca/fCdtD.net]
- >>879
ありがとうございます。
Pasteはいらないのでしょうか？
- 921 名前：デフォルトの名無しさん mailto:sage [2018/11/06(火) 02:06:44.79 ID:hX39oSae.net]
- 教えてください！とか言ってるから荒しかと思ってたがガチか
- 922 名前：デフォルトの名無しさん mailto:sage [2018/11/06(火) 02:42:45.06 ID:hX39oSae.net]
- >>867
>ペースト先のシートは保存せず元に戻す
マクロを実行すると「元に戻す」は使えなくなるから、一々開きなおさないといけないけど大丈夫なのかな
もしその作業が連続して行われるなら、テンプレート用シートと印刷用シートを別に用意した方が楽な気がする
- 923 名前：デフォルトの名無しさん [2018/11/06(火) 06:33:12.72 ID:ca/fCdtD.net]
- >>882
保存せずは間違えでした。
ペーストしたものをデリートするマクロを作って、元に戻す予定です。
- 924 名前：デフォルトの名無しさん mailto:sage [2018/11/06(火) 07:50:07.02 ID:hqcuocq7.net]
- >>880
引数付きでCopyメソッドを実行するときはPasteメソッドは書かなくていい
- 925 名前：デフォルトの名無しさん mailto:sage [2018/11/06(火) 08:01:03.35 ID:hqcuocq7.net]
- >>883
印刷用シートはデータと切り離してテンプレート用の別のファイルにした方が良い
そうすれば、印刷処理のとき一時的にテンプレートから印刷用フォーマットを書き起こした後、印刷用フォーマットのブックを削除するだけで済む
印刷後に印刷用シートを初期化するマクロを更に走らせるなんて、手間を増やしてるだけだと思うぞ
- 926 名前：デフォルトの名無しさん mailto:sage [2018/11/06(火) 19:36:10.55 ID:gYvutDKX.net]
- 複数端末で使用しているマクロがあります
端末aのデスクトップに目当てのファイルがあり、他の端末はネットワークで繫がっている端末aのデスクトップを覗きに行く感じになってます
ファイルパス & filenameで参照したいんですがどのように書くべきなんでしょうか
- 927 名前：デフォルトの名無しさん [2018/11/06(火) 19:50:54.72 ID:S8pHBi6C.net]
- >>886
のぞいてる？
スケベ！
- 928 名前：875 [2018/11/06(火) 19:57:59.09 ID:ca/fCdtD.net]
- みなさんありがとうございます。自分のイメージしてたものが100％出来ました。
- 929 名前：デフォルトの名無しさん mailto:sage [2018/11/06(火) 22:30:23.08 ID:hKUAUjlF.net]
- VBAベーシックの資格取得がてら基本情報の午後問対策にしようと思ってるんですけど出題範囲とかレベル感的に同じくらいですかね？
- 930 名前：デフォルトの名無しさん [2018/11/07(水) 10:26:42.01 ID:d5oBs1zX.net]
- VBAの資格って新しくできたのか？
- 931 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 10:35:52.33 ID:XvVrOgoe.net]
- >>886
ネットワークにつながったPCの名前に「\\」を付けるとアクセスできる
officetanaka.net/other/extra/tips15.htm
- 932 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 10:44:51.43 ID:t8cEHMAy.net]
- >>891
\\端末a:\Users\Admin\Desktopみたいな感じですね、ありがとうございます
ちなみにこれは端末aでも端末a以外でもこの書き方一つで参照出来るんでしょうか
- 933 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 10:53:48.53 ID:XvVrOgoe.net]
- >>892
端末aのフォルダを共有設定にしておかないとアクセスできない
共有になってれば、どのPCでもアクセスできる
エクスプローラーで共有フォルダを開いて、アドレスバーをコピペしてみると書き方が分かる
- 934 名前：875 [2018/11/07(水) 11:49:07.56 ID:4XVkNdGZn]
- シート間の切り替えで我慢が揺れるんですが、防ぐ方法は有りますか？
1行丸々コピーはデータが重いんでしょうか？
- 935 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 11:32:15.04 ID:nZWGaJPv.net]
- 会社なのに共有フォルダはないの？
- 936 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 11:34:31.05 ID:+HyKX3eQ.net]
- >>889
基本情報はJavaやCできない文系カスならExcel選べばいいでしょ
ワークシート関数を使いこなせれば十分で、VBAなんか全く要らん
- 937 名前：875 [2018/11/07(水) 20:36:23.84 ID:TW51zyDp.net]
- マクロ起動でシートの切り変わりで画面がブレるというか、もう少しスムーズに動いて欲しいと感じます。
1行まるごとコピーしているので重いのでしょうか？
- 938 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 22:08:04.86 ID:Qojc5OuV.net]
- 配列に入れるとか？
dim a
a = sheet1.Range("コピーしたい範囲")
sheet2.Range("sheet1と同じ大きさ") = a
シート切り替える必要あんの？
- 939 名前：デフォルトの名無しさん [2018/11/07(水) 23:56:50.98 ID:kdSj6Mns.net]
- text.txtの中身
1,"my name is taro"
2,""hello,world""
3,"hello,world"
これをエクセルに変換して期待値は以下としたい
どうしたらいい？
A B
1 my name is taro
2 "hello,world"
3 hello,world
- 940 名前：デフォルトの名無しさん mailto:sage [2018/11/07(水) 23:58:12.32 ID:Z9bNZaPm.net]
- 拡張子を.csvに変えてダブルクリックしてみよう
あら不思議！
- 941 名前：デフォルトの名無しさん [2018/11/08(木) 00:00:20.32 ID:+1CERcyT.net]
- ちなみに拡張子をcsvにすると以下のような変な出力になる。
A B C
1 my name is taro
2 hello world""
3 hello,world
- 942 名前：デフォルトの名無しさん [2018/11/08(木) 00:02:21.00 ID:M68F6j6d.net]
- "が一個足りない
csvで"をｲﾝﾎﾟｰﾄするには
"を""にして
"でくくらないといけない
- 943 名前：デフォルトの名無しさん [2018/11/08(木) 00:10:13.02 ID:+1CERcyT.net]
- 手順としては以下でよいか？
1. test.txtの中身を置換で「""」にマッチする箇所を「"""」として保存する
2. 拡張子をcsvにする。
期待値になったのでよしとする。
さらに一歩質問いいですか？
- 944 名前：デフォルトの名無しさん [2018/11/08(木) 00:19:54.15 ID:+1CERcyT.net]
- test.txtの中身
1,"my name
is taro"
2,"""hello,world"""
3,"hello,world"
これをエクセルにして期待値として以下としたい
A B
1 （※）
2 "hello,world"
3 hello,world
B1セル内に
my name
is taro
が格納され、適切に改行が入っていることを期待。
が、csvにしたら、ちゃんと期待値になってた。。
んー、、途中で改行が入るケースではまってた記憶があったんだが、、、、。これでよしとするか。。
- 945 名前：デフォルトの名無しさん [2018/11/08(木) 00:35:58.02 ID:+1CERcyT.net]
- ああ、思い出した
"がつかないケースで、改行が入っている場合
test.txtの中身
1,my name
is taro
エクセルにして期待値として以下としたい
A B
1 （※）
（※)
B1セル内に
my name
is taro
が格納され、適切に改行が入っていることを期待。
拡張子をcsvに置き換える前に、"で囲むようにすればいいが、置換でなんとかならないものか。
- 946 名前：デフォルトの名無しさん mailto:sage [2018/11/08(木) 01:33:19.87 ID:QHwNiY6E.net]
- ExcelのCSV読み込みでセル内改行がある場合
d.hatena.ne.jp/stealthinu/20170127/p1
- 947 名前：デフォルトの名無しさん mailto:sage [2018/11/08(木) 07:54:15.59 ID:u+iZKjOm.net]
- なんかもう最初のカンマまでの文字数だけ切り取るほうがシンプルなんじゃ
- 948 名前：デフォルトの名無しさん [2018/11/08(木) 11:52:01.74 ID:rWQT8E4I.net]
- excelの3Dグラフで陰線処理ってできますか？
- 949 名前：デフォルトの名無しさん mailto:sage [2018/11/08(木) 12:05:03.88 ID:Yck2Cb0Y.net]
- 陰毛処理？
- 950 名前：デフォルトの名無しさん mailto:sage [2018/11/08(木) 14:33:21.43 ID:3qqw0Iqx.net]
- >>898
それのどこに配列が絡んでるんですかね？
- 951 名前：デフォルトの名無しさん mailto:sage [2018/11/08(木) 14:42:53.05 ID:rBrrwKGn.net]
- >>908
昔方法探したけどできなかった
陰線処理ってエロくないのにちょっとエロく思える単語だよな
- 952 名前：デフォルトの名無しさん mailto:sage [2018/11/08(木) 15:12:21.75 ID:BZZI+ZYR.net]
- 質問する奴も答える奴も論外で草
質問する奴はそういうスレだからともかく
答える奴が池沼なのはもう少し何とかならないか？
VBAだから無理か
- 953 名前：デフォルトの名無しさん [2018/11/08(木) 19:19:19.39 ID:j6Jh7/pK.net]
- なんやプロさん同士で内紛勃発か？w
- 954 名前：デフォルトの名無しさん mailto:sage [2018/11/08(木) 20:27:13.91 ID:hKKyRwQm.net]
- >>910
えっ?
絡んで無いと思ってる?
今となっては初心者でも使う手法だと思うんだが。
それとも何か勘違いしてるのは俺か?
- 955 名前：デフォルトの名無しさん [2018/11/08(木) 20:30:22.05 ID:j6Jh7/pK.net]
- >>914
おまえだけやプロさんw
- 956 名前：デフォルトの名無しさん mailto:sage [2018/11/08(木) 20:41:38.00 ID:vlGhAqs/.net]
- >>910
変数代入のときにSetステートメント使ってないから、変数にはセル値の配列が入ってるぞ
- 957 名前：デフォルトの名無しさん mailto:sage [2018/11/08(木) 22:36:31.77 ID:I6vRTJnd.net]
- >>873,>>874
SQLServer側でセルの権限管理？？？
プロ？？
- 958 名前：デフォルトの名無しさん [2018/11/08(木) 22:38:08.36 ID:j6Jh7/pK.net]
- プロさんにつっこんだらあかんやろ
暗黙のルールぐらい守れやカス
- 959 名前：デフォルトの名無しさん mailto:sage [2018/11/08(木) 22:43:10.26 ID:I6vRTJnd.net]
- そんなことより、XMLクライアントとしてのExcelを語ろうぜ
- 960 名前：デフォルトの名無しさん mailto:sage [2018/11/08(木) 23:06:03.49 ID:g1taMrfK.net]
- >>917
セルの権限管理なんぞサーバーから見たら何の意味もないよ
- 961 名前：デフォルトの名無しさん [2018/11/09(金) 10:17:43.12 ID:46H7vVxk.net]
- sagawa-oki.com/
ここにアクセスしたら不審サイトであると警告が出ました。
PCに詳しい人、これどういうしくみなんですか？
オレのPCは感染したのですか？
- 962 名前：デフォルトの名無しさん mailto:sage [2018/11/09(金) 10:21:06.82 ID:mRKVO+Jg.net]
- yes
- 963 名前：デフォルトの名無しさん mailto:sage [2018/11/09(金) 10:42:48.08 ID:jWmpQO7/.net]
- >>921
もう手遅れですね
アマギフ送ってくれたら直してあげられるよ
|
 |
