Excel VBA質問箱 IV

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

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


52027 / 76732 ←次へ | 前へ→

【29553】Re:エクセル表の検索ができません・・・。
質問  G  - 05/10/7(金) 13:26 -

引用なし
パスワード
   >ちくたくさん 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


インターネットや書籍で調べながらちまちま作っているレベルなので
余計なコード等あるかもしれませんが、
ユーザとそのユーザが所属するグループ一覧からユーザ名と所属するグループ
名を検索し、チェックシート(前回の書き込みのイメージ)の
ユーザ名とグループ名がクロスする場所にチェックを入れることを目的とした
ものです。

よろしく御願いします。

0 hits

【29548】エクセル表の検索ができません・・・。 G 05/10/7(金) 12:52 質問
【29549】Re:エクセル表の検索ができません・・・。 ちくたく 05/10/7(金) 13:03 発言
【29551】Re:エクセル表の検索ができません・・・。 ponpon 05/10/7(金) 13:05 発言
【29553】Re:エクセル表の検索ができません・・・。 G 05/10/7(金) 13:26 質問
【29555】追記 G 05/10/7(金) 13:53 質問
【29556】Re:追記 ちくたく 05/10/7(金) 14:25 発言
【29558】Re:追記 G 05/10/7(金) 15:51 発言
【29559】Re:追記 ちくたく 05/10/7(金) 16:22 回答
【29679】Re:追記 G 05/10/11(火) 17:45 お礼

52027 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free