Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6948 / 76732

←次へ　｜　前へ→


	【75380】Re:以前作って頂いた物の改変(複雑です)

kanabun - 14/3/18(火) 12:49 -


	引用なし

	パスワード

▼初心者M さん： >それをまた、別のファイルで使うために改変しようとし、試行錯誤の末行き詰まってしまったので、申し訳ございませんがまたお知恵を貸して頂きたいです。 >　　For x = X0 To X0 + (XX - 1) * Xstp Step Xstp　'取り込んだ最大値を上書き >　　　For y = Y0 To Y0 + (YY - 1) * Ystp Step Ystp >　　　　　For Each c In Cells(y, x).Resize(9) >　　　　　　ss = c.Value >　　　　　　 >　　　　　　If c.Offset(, 1).Value = 0 Then '掛け数が入力されていたら無視 > >　　　　　　　　If Len(ss) > 0 Then >　　　　　　　　　　c.Offset(, 2).Value = dic(ss) >　　　　　　　　　　 >　　　　　　　　　　'If c.Offset(, 2).Value = 0 Then '０なし >　　　　　　　　　　'GoTo nxt >　　　　　　　　　　 >　　　　　　　　　　'If c.Offset(, 1).Value <> 0 Then '←無視された行に色をつけたいが、うまく動かない >　　　　　　　　　　'c.Offset(, 1).Interior.Color = RGB(0, 128, 0) >　　　　　　　　　　'c.Offset(, 1).Interior.Coloindex = 10 >　　　　　　　　　　'End If >　　　　　　　　　　 >　　　　　　　　　　'End If >　　　　　　　　End If >　　　　　　End If >　　　　　　　　　　'nxt: >　　　　　Next >　　　　Next >　　Next >　 >　MsgBox ("持ち上げが完了しました。掛け数の設定されている台は、手集計して下さい") >　 >End Sub > >___________________________________ > >やりたいのは、上記の中にもある > >１．無視された行に色を付ける > >２．最初に読み込むセル(記号の有るセル)を、リサイズした９行の中でも「C9」「C12」「C15」のように３つずつだけにする > >３．読み込んだ記号に対応した数値は、例えば「C9」に対し「E8」「E9」「E10」のように３つずつあり、これらを別々の数値として、それぞれ最大値に合わせる(３回回すイメージをしています)。 > >４．最後に、それぞれの記号に対し、書き込んだ回数をカウントし、特定の数値にに対して違っていたら警告を出したい。 > >２に関しては、読み込む部分のコードをResize(9)からOffset(1, 0)、Offset(4, 0)、Offset(7, 0)に変えて３回回したら上手く動いたのですが、それ以降が止まってしまいますし、何か違う気がします。サンプルの表を出して、この表をこうしたいのだが、こうなってしまうのように、絵で説明してくださると、時間のあるとき考えてみるのですが...