[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
434(1): (ﾜｯﾁｮｲ d3da-Kk5w) 2020/10/01(木)10:04 ID:+ML6JMtp0(1) AAS
初心者がツール作るように言われたら大変なんだろうな、俺は大変だと思ったことないが
435(1): (ﾗｸｯﾍﾟﾍﾟ MM7f-62ru) 2020/10/01(木)10:34 ID:6DJ6J+GDM(1) AAS
タブレットでバーコードリーダーのキーボード入力モードでも使ってるんだろうなと想像
COMで操作できるライブラぐらい付いているだろうからそれ使えば解決
436: (ﾜｯﾁｮｲ cf63-dtjG) 2020/10/01(木)16:54 ID:Ld5Ou2iR0(1) AAS
>>435
まさにおっしゃる通りで作業進捗をバーコードで管理するものを作りました。
次は工程内のチェックシートと計測値などのトレーサビリティです禿げそう
とりあえず計測器具も試用で借りてる段階なのでメーカーにライブラリの事聞いてみます…
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
右端にファイル名を入れるにはどうしたらいいですか？
それと、配列のＵｐｐｅｒをどう設定したらいいですか？
上下前次1-新書関写板覧索設栞歴
あと 549 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.011s