[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
437: (ﾃﾃﾝﾃﾝﾃﾝ MM7f-vZte) 2020/10/01(木)17:12 ID:W6bAQtLIM(1) AAS
>>431
知ってた
438: (ｱｳｱｳｴｰ Sadf-ywH8) 2020/10/01(木)18:58 ID:9Yax9dsIa(1) AAS
>>434
かっけぇ
439(3): (ﾜｯﾁｮｲ ff1f-Fuq4) 2020/10/01(木)21:36 ID:dM4yb7Ap0(1) AAS
罫線で囲われてたり、色塗りされたりするセルをマウスでドラッグ移動した時移動した場所は何もなくるなるのを罫線のみを残す方法ってありませんか？
簡単に言うと罫線で作った表の形式を保持したい。
440: (ｵｲｺﾗﾐﾈｵ MMa7-gXeV) 2020/10/01(木)21:50 ID:5ESnmk3DM(1) AAS
>>439
テンプレートを隠しシートに保存しておいて、
ボタン押下で書式をコピペしてくるってどう？
441: (ﾜｯﾁｮｲ e33d-9f2k) 2020/10/01(木)22:00 ID:gLHdGUpR0(1) AAS
>>439
切り貼りじゃなくてコピーアンドペーストした後に元のところの数式と値をクリア(右クリック+N)すればよいのでは
442: (ﾜｯﾁｮｲ ff02-Uy5C) 2020/10/01(木)23:26 ID:ywfP0KwV0(1) AAS
changeイベントで常に罫線引くことしか思いつかん
443: (ﾜｯﾁｮｲ b37c-Uy5C) 2020/10/01(木)23:48 ID:2OGRwJxy0(1) AAS
移動できないようにする
444: (ﾜｯﾁｮｲ e3da-yeTY) 2020/10/02(金)01:42 ID:MWdBgx4Q0(1/2) AAS
セルをマウスでドラッグって何だよ?
エクセルで将棋でもやるの?
445: (ﾜｯﾁｮｲ f35f-67ZW) 2020/10/02(金)01:43 ID:ChxT/cO/0(1/2) AAS
>>425
それExcel VBAでやるものではない。
自分のやりたいようにやりたければ、Windows SDKでの開発をしてください。
446: (ﾜｯﾁｮｲ f35f-67ZW) 2020/10/02(金)01:49 ID:ChxT/cO/0(2/2) AAS
>>439
そもそも手順というものを考えた方がいい。
移動する前の情報を移動先には持ってくるが、移動元にはその情報を適用しないのはなぜ？
447: (ﾜｯﾁｮｲ d3cc-gW4a) 2020/10/02(金)10:09 ID:A7BNHAQE0(1/3) AAS
指定したフォルダ内の全てのＣＶＳファイルを配列に追記していき対のですが、コードを教えてください
配列の０列目（１次元目）にはそれぞれのＣＳＶファイルのファイル名をいれたいです。
Sub Sptyou()
Dim FolderPath As String, buf As String, TargetDate As String
'■フォルダを指定する
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = 0 Then
MsgBox "キャンセルされました。"
Exit Sub
End If
省4
448(1): 447 (ﾜｯﾁｮｲ d3cc-gW4a) 2020/10/02(金)10:09 ID:A7BNHAQE0(2/3) AAS
つづき
buf = Dir(FolderPath & "*.csv")
Do While buf <> ""
Open buf For Input As #1 'インプットモードでファイルを開く
Line Input #1, TargetDate
Do Until EOF(1) 'ファイルの終点まで
Line Input #1, Tardt '開いたファイルを上から順に読み込んでいき、変数TargetDateに代入していく
If Split(TargetDate, ",")(1) = "" Then Exit Do
'配列に追記する
ReDim Preserve BiforeArray(Ubound(BiforeArray) + 1 To ??, 1 To 190) = Sprit(TargetDate,",")
省5
449(1): (ﾌﾞｰｲﾓ MM27-gZNM) 2020/10/02(金)10:42 ID:cHoSzh9XM(1) AAS
ReDim Preserveで操作可能なのは最右端の次元だけだから2次元配列で1次元目に使いたいなら一旦反転させた状態で操作して出力時にWorksheetfunction.transpose使って吐き出す必要があるぞ
いまいち最終目的が分からなかったから取り合えず読んでて気になった所だけ
450: (ﾜｯﾁｮｲ d32c-G8Sl) 2020/10/02(金)10:56 ID:ooD45Zz30(1/2) AAS
Linux のcat なら、複数のファイルを連結できるけど
451: (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru) 2020/10/02(金)12:25 ID:XdHW2/g2M(1/2) AAS
win dosならcopyで連結できるけど
452: (ﾜｯﾁｮｲ d3da-Kk5w) 2020/10/02(金)12:29 ID:a296oIK60(1/2) AAS
>>448
内側のLoop内で Tardt ってのが気になった
453(2): 447 (ﾜｯﾁｮｲ d3cc-jreG) 2020/10/02(金)13:32 ID:A7BNHAQE0(3/3) AAS
>>449
右端にファイル名を入れるにはどうしたらいいですか？
それと、配列のＵｐｐｅｒをどう設定したらいいですか？
454: (ﾜｯﾁｮｲ ff6d-Zm3W) 2020/10/02(金)15:56 ID:7/1+1goB0(1) AAS
また馬鹿な質問者か。それともいつもの厚かましい馬鹿か？
455(1): (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru) 2020/10/02(金)16:13 ID:XdHW2/g2M(2/2) AAS
右端の次元と右端の列では話の次元が違うけどわざとやってんのかなー？
excelなんだからとりあえずシートに格納すればいいと思うんだけどなー
配列に1行づつ追加するよりはやいんじゃね？
VBは動的配列無いんだからパフォーマンス出すには頭を使わにゃいかんよ
行数をキーにしたDictionaryもいいかもね
456: (ﾜｯﾁｮｲ ffad-gZNM) 2020/10/02(金)16:51 ID:p6rjz1Jr0(1) AAS
>>453
配列のUpperが何を意味してるのかいまいち分からんがこんな感じで良いんか？
Line Input #1, TargetDate
BeforeArray(0, Ubound(BeforeArray, 2)) = ファイル名
For文[1〜190](BeforeArrayにSplit(TargetDate, ″,″)を放り込む)
ReDim Preserve BeforeArray(0 to 190, Ubound(BeforeArray, 2)+1)
Do Until EOF(1)
Line Input #1, TargetDate
For文[1〜190](BeforeArrayにSplit(TargetDate, ″,″)を放り込む)
ReDim Preserve BeforeArray(0 to 190, Ubound(BeforeArray, 2)+1)
省1
上下前次1-新書関写板覧索設栞歴
あと 546 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.016s