Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

897 / 76735

←次へ　｜　前へ→


	【81498】Re:VBAでどのようにコードを書いたらいいのかわかりません。

mi - 20/9/26(土) 17:51 -


	引用なし

	パスワード

▼γ さん：
>シリアル番号の桁数が揃っていない(7桁,8桁)ことに気づくのに時間がかかりました。
>
>二つ載せます。
>test1はごく基本的なもの。行数によっては時間がかかるかもしれません。
>test2はオートフィルタを使ったもの。
>
>いずれもテストをしてから使って下さい。
>（こちらの環境ではOKでしたが、そちらの環境では不明です。色々ありますから。
>　A列に今回以外の何か値が残っていると、それも対象になるので注意）
>
>Sub test1()
>　　Dim rng As Range
>　　Dim k As Long
>　　With Worksheets("sheet2")
>　　　　For k = 2 To .Cells(.Rows.count, "A").End(xlUp).Row
>　　　　　　If .Cells(k, "A").Value <> "" Then
>　　　　　　　　.Cells(k, "A").ClearContents
>　　　　　　　　.Cells(k, "C").Value = "田中"
>　　　　　　End If
>　　　　Next
>　　End With
>End Sub
>
>Sub test2()
>　　Dim rng As Range, body As Range
>　　
>　　Set rng = Worksheets("Sheet2").Range("A1").CurrentRegion
>　　Set body = Intersect(rng, rng.Offset(1))
>　　
>　　rng.AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd
>　　body.Columns(3).Value = "田中"
>　　body.Columns(1).ClearContents
>　　rng.AutoFilter
>End Sub
ありがとうございます。色々わかりにくく書いてしまいます申し訳ありません。
緊急がはいりこれから仕事なのでまたあとで確認してみます。
入力フォームは毎日clearにしてしようしますので機器ｼﾘｱﾙ番号番号のA列は常に残ったままです。機器は約12000台位ありこのｼﾘｱﾙ番号の機器は0001というお客様宅に田中が取り付けに行ったという管理なのです。後々は日付も管理しますが始めたばかりでどれ位管理しないとだめなのか全く不明なのでとりあえず思いついた方法でやってみようかと。

0 hits

▼

【81492】VBAでどのようにコードを書いたらいいのかわかりません。 mi 20/9/26(土) 1:55