|
>ちくたくさん ponponさん jakaさん
レスありがとうございます。
コードは今このような感じになってます。
'変数宣言
Dim user As String
Dim group As String
Dim countu As Integer
Dim countg As Integer
Dim rpcountu As Integer
Dim rpcountg As Integer
'初期値代入処理
countu = 1
countg = 1
harugyou = 0
haruretu = 0
user = ""
group = Cells(countg, 2)
'検索処理ループ
Do Until user = "EOF"
'ユーザ名検索処理(別Sheetより検索対象ユーザ名(列)を取り出す処理)
user = Cells(countu, 1)
'モジュールテスト用出力
Cells(countu, 3) = user
user = Cells(countu, 1)
countu = countu + 1
'グループ選択処理(別Sheetより検索対象グループ(行)を取り出す処理)
Do Until group = ""
group = Cells(countg, 2)
group = Cells(countg, 2)
countg = countg + 1
'↑ここまで旨く行っています。
'↓ここからが方法が分からない場所です
'検索処理(ユーザ名とグループ名からデータ入力座標を求める)
Set zahyoc = Columns(6).Find(user)←ここで列の要素を取り出してます
Set zahyor = Rows(6).Find(group)←ここで行の要素を取り出してます
'Range("f7:f267").Select←ここで要素から列の座標をとりだそうとしています。
'Set harugyou = Column(zahyoc)
'Range("c6:co6").Select←ここで要素から行の座標を取り出そうとしています。
'Set haruretu = Rows(zahyor.Row)
'Cells(haruretu, harugyou).Value = ""
←ここで座標を指定してデータを入力します
(※未だ此方は方法をいろいろと検討中です)
Loop
Loop
インターネットや書籍で調べながらちまちま作っているレベルなので
余計なコード等あるかもしれませんが、
ユーザとそのユーザが所属するグループ一覧からユーザ名と所属するグループ
名を検索し、チェックシート(前回の書き込みのイメージ)の
ユーザ名とグループ名がクロスする場所にチェックを入れることを目的とした
ものです。
よろしく御願いします。
|
|