Excel VBA質問箱 IV

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

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


53979 / 76732 ←次へ | 前へ→

【27557】Re:同じ番号を探したいのですが・・・・・
回答  ちくたく  - 05/8/11(木) 17:13 -

引用なし
パスワード
   こんにちは

私はエクセルに詳しくないので、わかりませんが、
Jakaさんの意見がいいのだろうと思います。

>条件付書式は普段より使用しているのですが
>3つまでしか条件がつけれなかったと思います。
>今回は、10個〜20個の条件をつけたいので
>この方法では十分に対応できませんでした。

10〜20も条件があるのなら、
If文を自分で書けないと厳しいかと。

>Sheet3への書き出しもIFを使ってみようと試みましたが
>出来ませんでした。
>すみませんが、ある条件を満たすセルの書き出し方法を
>教えてもらえませんか?

あくまで一例ですが、べたべたに書くとこんな感じ。
これも、多分Jakaさんの言っているやり方でやれば、
もっといいのでしょう。

Sub IF文みたいな()

  Dim i As Integer
  Dim wS As Integer
  Dim findValue As Integer
  Dim nowRange As Integer
  
  'ここに探したい数を入れる
  findValue = 2
  nowRange = 1
  
  For wS = 1 To Worksheets.Count - 1
    For i = 1 To 300
      If Sheets(wS).Range("A" & i).Value = findValue Then
        Sheets(wS).Range("A" & i).Font.Color = RGB(255, 0, 0)
        
        'シート3に書き出し。
        Sheets(Worksheets.Count - 1).Range("A" & nowRange) = _
        Sheets(wS).Name & "A" & nowRange
    Next i

End Sub

1 hits

【27537】同じ番号を探したいのですが・・・・・ リンゴ 05/8/11(木) 9:19 質問
【27540】Re:同じ番号を探したいのですが・・・・・ ちくたく 05/8/11(木) 10:33 発言
【27541】Re:同じ番号を探したいのですが・・・・・ リンゴ 05/8/11(木) 11:23 質問
【27543】Re:同じ番号を探したいのですが・・・・・ ちくたく 05/8/11(木) 11:44 回答
【27549】Re:同じ番号を探したいのですが・・・・・ リンゴ 05/8/11(木) 15:03 質問
【27557】Re:同じ番号を探したいのですが・・・・・ ちくたく 05/8/11(木) 17:13 回答
【27548】Re:同じ番号を探したいのですが・・・・・ Jaka 05/8/11(木) 15:02 回答

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