| |
▼γ さん：
>シリアル番号の桁数が揃っていない(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というお客様宅に田中が取り付けに行ったという管理なのです。後々は日付も管理しますが始めたばかりでどれ位管理しないとだめなのか全く不明なのでとりあえず思いついた方法でやってみようかと。
|
|
mi
- 20/9/27(日) 16:27 -
γ
- 20/9/27(日) 15:52 -
γ
- 20/9/26(土) 17:15 -
mi
- 20/9/26(土) 1:55 -
- 20/9/24(木) 21:58 -
