Excel VBA質問箱 IV

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

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


59886 / 76732 ←次へ | 前へ→

【21510】Re:条件を満たすセルの検索
回答  りすりす  - 05/1/22(土) 2:07 -

引用なし
パスワード
   ▼みゆき さん:
>そうですね。ミスをなくす為にもそれも取り入れようと思います。
>
>また質問が出たのですが、
>
> Cells(i, 2) = "名無しさん"
>
>のところで名前を入力(送出)していますが、この名前の情報を元に「一般」と「会社関係」の2つに区分分けしたいのですが。
>エクセルのセルには印刷欄外に「一般リスト」、「会社関係リスト」として名前のリストはあります。
>
>人数が多いのでcase:○○○○だと書く行数がとんでもない数になってしまいます。
>範囲指定でここからここまでを検索してマッチするものがあるかどうか検索してセルに区分を表示するなどと言った都合の良い記述法などはありますでしょうか?
>
>
>表示例)
>
>関 係   名 前  受付番号 受付時間 
>
>会社関係 名無しさん   1    10:22
>一般   ななしさん   2    10:25
> :     :     :    :
> :     :     :    :
>
>初めはエクセル側で区別する式を入れておいたのですが、ユーザーフォームから情報を送るとどうも消えてしまうようで上手くいきませんでした。
区別する式もたぶんコピーできますよ。


とりあえず直接値をいれるやり方

Function Get関係(ByVal NameText As String) As String
 '整数でループしてもいいのですがちょっとかわったことしたくなったので
 ' http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=78;id=FAQ
 'こちらを参考にしました
  Dim cel As Range
 
  Dim 関係 As String

  関係 = ""
  For Each cel In Range("G2:G11") ' ここに検索範囲をいれる
   If StrComp(cel.Value, NameText) = 0 Then ' 名無しさん発見!!
    関係 = "会社関係"
    Exit For ' For文をでる
   End If ' If 終わり
  Next ' For 次の celへ
  
  If Len(関係) = 0 Then ' 文字が入っていないので 次の範囲を検索
  For Each cel In Range("H2:H11") ' ここに検索範囲をいれる
   If StrComp(cel.Value, NameText) = 0 Then ' ななしさん発見!!
    関係 = "一般"
    Exit For ' For文をでる
   End If ' If 終わり
  Next ' For 次の celへ
  End If
  
'  If Len(関係) = 0 Then 関係 = "誰だ???" ' リストにない文字
 
 Get関係 = 関係  ' 関数に値をいれて終了
End Function


Private Sub CommandButton1_Click()
 Dim ARow, ACol As Long
 Dim StartCell As String
 Dim i, j As Long

 ' 下に検索
 StartCell = "B4" ' 検索開始位置
 ARow = Range(StartCell).Row  ' B4の 行の数字を代入
 ACol = Range(StartCell).Column ' B4の 列の数字を代入

 For i = ARow To 65536 ' 行を操作
  If IsEmpty(Cells(i, ACol)) And _
    IsEmpty(Cells(i, ACol + 1)) And _
    IsEmpty(Cells(i, ACol + 2)) Then
   ' もし空白なら
   ' ここに処理
   ' i 行目、ACol 列目
    Cells(i, 2) = "名無しさん" ' Cells(i, ACol)
    Cells(i, 3) = "受付時間"   ' Cells(i, ACol + 1)
    Cells(i, 4) = "受付番号"   ' Cells(i, ACol + 2)
    Cells(i, 1) = Get関係("名無しさん")
   Exit For  ' for文をでる
  End If
 Next
End Sub
1 hits

【21490】条件を満たすセルの検索 みゆき 05/1/21(金) 22:09 質問
【21492】Re:条件を満たすセルの検索 かみちゃん 05/1/21(金) 22:21 回答
【21499】Re:条件を満たすセルの検索 みゆき 05/1/21(金) 23:25 質問
【21501】Re:条件を満たすセルの検索 かみちゃん 05/1/22(土) 0:07 回答
【21502】Re:条件を満たすセルの検索 りすりす 05/1/22(土) 0:08 発言
【21504】Re:条件を満たすセルの検索 みゆき 05/1/22(土) 0:21 お礼
【21505】Re:条件を満たすセルの検索 りすりす 05/1/22(土) 0:22 発言
【21506】Re:条件を満たすセルの検索 みゆき 05/1/22(土) 1:12 質問
【21510】Re:条件を満たすセルの検索 りすりす 05/1/22(土) 2:07 回答
【21519】Re:条件を満たすセルの検索 みゆき 05/1/22(土) 12:54 お礼
【21514】Re:条件を満たすセルの検索 かみちゃん 05/1/22(土) 10:46 回答
【21525】経過時間の計算 みゆき 05/1/22(土) 17:48 質問
【21529】Re:経過時間の計算 G-Luck 05/1/22(土) 19:24 発言
【21532】Re:経過時間の計算 りすりす 05/1/22(土) 21:13 回答
【21533】日数および時間計算に関するワークシート関... りすりす 05/1/22(土) 22:39 発言
【21537】Re:日数および時間計算に関するワークシー... みゆき 05/1/23(日) 0:16 お礼
【21493】Re:条件を満たすセルの検索 ponpon 05/1/21(金) 22:24 発言
【21497】Re:条件を満たすセルの検索 りすりす 05/1/21(金) 23:11 回答
【21500】Re:条件を満たすセルの検索 りすりす 05/1/21(金) 23:47 発言

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