エクセルの学校：全文検索：Hyper Estraier：（Mook）

Results of 1 - 1 of about 1215 for （Mook） (0.001 sec.)

[[20150225104050]]: #score: 9211; @digest: da6c6a19240d17e2b3ccd0c5c57ee9f7; @id: 67343; @mdate: 2015-02-25T11:48:16Z; @size: 3014; @type: text/plain; #keywords: numofweek (13911), yuho (13718), sheeta1 (12185), 張付 (11624), vbmonday (10819), 第何 (8911), 週皆 (7748), 週ご (7096), 局日 (7055), 何週 (6959), 殊性 (6721), 週目 (3673), 外勤 (3365), 火曜 (2926), ・管 (2721), 週で (2659), 後程 (2153), activecell (2133), 水曜 (2083), 第5 (2026), 第1 (2005), 原本 (1860), 定表 (1591), 成・ (1563), 先週 (1536), （yu (1467), weekday (1416), 第一 (1306), 配慮 (1123), 日別 (1103), ー元 (1061), 元表 (871); 『第何週かによって張付ける表を変更したい』（Yuho）
先週皆様から教えて頂いたマクロでカレンダーのシートをクリックしてマクロを動かし曜日別の表を月毎のシートに無事張付けできています。 Sub Test() Dim sh As Worksheet Dim shn As String If Not IsDate(ActiveCell.Value) Then MsgBox "日付が選択されていません" Exit Sub End If shn = Format(ActiveCell.Value, "m月") On Error Resume Next Set sh = Sheets(shn) On Error GoTo 0 If sh Is Nothing Then MsgBox "シート " & shn & " がありません" Exit Sub End If With sh.Range("A1", sh.UsedRange) Sheets("AA").Range("B9:G40").Offset((Weekday(ActiveCell.Value, vbMonday) - 1) * 33).Copy .Range("A" & .Rows.Count).Offset(1) End With Sheets(shn).Select End Sub 可能であれば、追加で教えて頂きたいのですが今、SheetAAのB9:G40を月曜の表とし、下に金曜までの表を作成し運用しておりますが、実は週ごとに予定表が違い（第1〜第5週で）表を張付けてから微調整しております。そこで、週ごとの表を自働で張付けられないか…と思い再々度のお願いでした。私的な勝手な構想ですがもしActiveCellの日付が第何週なのかが分かれば原本シートを5つ用意し（仮に SheetA1〜A5） 1週目はSheetA1から4週目はSheetA4から張付ける… という具合にできると、週ごとの特殊性を配慮した元表を作成・管理しやすいのですが…可能でしょうか。よろしくお願いします。＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- 結局日付によってコピー元を変更するだけだと思いますが、第1週の定義はどういった内容でしょうか。 1日が水曜であった場合、7日の火曜は第一週ですか?第二週ですか? （Mook） 2015/02/25(水) 13:07 ---- Mookさん、ありがとうございます。そういえば社内でも、もめたことがありました第1週目ではなく、1回目ということです。 1日が水曜だと7日火曜は「第一火曜」です。説明不足で申し訳ありません。よろしくお願いします。（Yuho） 2015/02/25(水) 13:20 ---- であれば、単純に7で割ればシートを特定できますし、曜日で位置を特定できるかと思います。コピー元のシート名が AA1 〜 AA5 であれば、 Sheets("AA").Range("B9:G40").Offset((Weekday(ActiveCell.Value, vbMonday) - 1) * 33).Copy を numOfWeek = Int((Day(CDate(ActiveCell.Value)) + 6) / 7) Sheets("AA" & numOfWeek ).Range("B9:G40").Offset((Weekday(ActiveCell.Value, vbMonday) - 1) * 33).Copy のようにしてできないでしょうか。 （Mook） 2015/02/25(水) 13:54 ---- Mookさんありがとうございます。これから夜まで外勤でPC環境にないため後程、提案されたマクロについて試行してみます。申し訳ありません。少々お待ちを。（Yuho） 2015/02/25(水) 14:16 ---- Mookさんありがとうございました。見事、希望通りに週ごとの予定表が一発でできました。これで、何人もの週ごとのスケジュールを手作業でコピペし第何週は…と調整していたのが、週ごとの原本を作成することで、ワンタッチで間違うことなく作成できます。 1時間以上かかっていた作業がおそらく5分程度でしかも間違うことなく出来るようになります。本当に助かりました。お世話になりました。（Yuho） 2015/02/25(水) 20:48 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201502/20150225104050.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ