| |
お世話になっております
下記をイベントマクロ等で行えないかと考えております
初心者の私にお知恵を貸してもらえないでしょうか？
文書No.を採るための
以下データベース（XLS）があります
これは従来から使用されており
文書No.の列には、既にいくつか入力済みです。
また昔のデータの箇所は
一部空白のセルもあり、完全なデータベースでは
ありません。
（支店） （部門） （番号） （文書No.） （担当者）（件名）
横浜：A 営業１課：010 0001 A0100001 ** ****
札幌：B 営業２課：011 0001 B0110001 ** ****
横浜：A 営業２課：011 0001 A0110001 ** ****
上記"番号"のセルへVBAで自動で入力できないかと
考えた次第です
次のWorksheet_Changeイベント以外で
何か良い方法はないでしょうか？
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
###処理 2列目の"部門"が変更されたときに
"支店""部門"列から推測される番号を
0001から順に、4列目"文書No."列から検索し
入力する
Else
End If
End Sub
件数が増えても時間がかからない、良い方法は
ないものでしょうか？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
