エクセルの学校：全文検索：Hyper Estraier：シリアル値とは

Results of 1 - 1 of about 779 for シリアル値とは (0.008 sec.)

シリアル値 (1875), とは (29356)

[[20070309105802]]: #score: 8288; @digest: 6ec3957b1b51c8e775fbc9d33810405d; @id: 29330; @mdate: 2007-03-13T12:07:03Z; @size: 3865; @type: text/plain; #keywords: 景情 (15497), 田梨 (15241), 力背 (14761), 大門 (13625), 門田 (13096), タ背 (7748), 色あ (6847), myday (4851), ロdi (4621), 成19 (4427), 果一 (3920), 背景 (3216), 間カ (3181), 景色 (2133), 前質 (1949), 複写 (1619), 本人 (1580), 年4 (1502), 間帯 (1490), カレ (1353), 業者 (1243), 情報 (1198), シリ (1156), sheet3 (1154), myrow (1112), 平成 (1049), ル値 (916), レン (842), interior (773), ンダ (742), アル (719), ダー (687); 『検索後、一致セルの右セルの情報をコピーしたい』（まとな）
何回となく教えを請いながら未だに力量が向上しない自分に情けなくなります。どなたかお教えください。日曜日から始まる七曜の年間カレンダーを作成して、6つの時間帯への作業者の割り振りをしようと考えています。「Sheet2に特別作業のための作業者の割り振りデータを入力しておき、それをもとにSheet3のカレンダーに検索をかける。その結果一致する Sheet3の日付セルの右に用意した6つのセル（Sheet2の6つの時間帯と合致）に元データ（Sheet2のセル）の右の6つのセルの情報をコピーする。ただしコピーする情報は、値と背景の情報のみとする。」という処理です。コピーを「値と背景の情報のみ」とするのは、このマクロ実行の前にカレンダーに他の処理をしておくため、罫線等の情報の影響を排除したいからです。以前質問しお教えいただいたことを応用しようとしたのですが、うまくいきません。 FindやIf End Ifなどを使用するのだろうとは思うのですが? イメージ的には次のとおりです。 Sheet2 R S T U V W X 4 平成19年4月6日田梨 ↑ ↑ シリアル値で入力背景色あり 5 平成19年4月15日大門田 ↑ ↑ シリアル値で入力背景色あり 6 7 8 9 〜 63 64 Sheet3 A B C D E F G H I J 〜 AL AM AN AO AP AQ AR AS AT AU AV AW AX AY 3 期曜日月金土 4 1 2 6 田梨 7 ↑ 背景色あり 5 8 9 13 14 6 15 大門田 16 20 21 ↑ 背景色あり〜 55 23 24 28 29 56 30 31 ↑ ↑ ↑ ↑ 日付はシリアル値を表示で"日"部分のみ表示としている。 ---- まとなさん、こんにちは。なかなかレスが付かないようですが、まとなさんが引っかかっているポイントがわからないというのがネックですね。ご本人さんもどうしたらよいのか判らないのだと思いますが・・・。まずは、変数の使い方、For〜Nextステートメントでのループの入れ子をマスタしてください。いきなりSheet2をSheet3の形にするのではなくて、処理の間に別のシートへ、例えば、1行目から31行目までへSheet2のデータと背景情報を複写するようなマクロを作成して練習みてはいかがでしょうか。 Sheet2のR4からR列の最終行までをループし、Sheet4の1行目（1日）から該当日の行へ S列〜X列までのデータ背景情報を複写するマクロ Dim C As Range, Rng As Range Dim myRow As Long, i As Long Dim myDay As Long With Worksheets("Sheet2") myRow = .Cells(.Rows.Count, 18).End(xlUp).Row For Each C In .Range("R4:R" & myRow) myDay = CLng(Format(C.Value, "d")) Set Rng = Worksheets("Sheet4").Cells(myDay, 1).Resize(1, 6) Rng.Value = C.Offset(0, 1).Resize(1, 6).Value For i = 1 To Rng.Cells.Count Rng.Cells(i).Interior.ColorIndex = C.Offset(0, i).Interior.ColorIndex Next i Next C End With これらが何をしているか理解できればSheet3への処理に進めると思います。 (みやほりん)(-_∂)b ---- みやほりんさん、ありがとうございました。 >なかなかレスが付かないようですが、まとなさんが引っかかっているポイントが >わからないというのがネックですね。ご本人さんもどうしたらよいのか判らないのだ >と思いますが・・・。ずばり、ご指摘のとおりです。まずは、ご紹介いただいたものを読み解く努力をしてみようと思います。 (まとな) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200703/20070309105802.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ