複数のエクセルファイルからデータ抽出とまとめる方法について。
対象のフォルダをｃドライブの「sample」とした場合で回答します。 新規エクセルブックのシート名タブを右クリックし「コードの表示」 右側のエディタエリアに下記コードを貼り付け、実行して下さい。 Ｇ列にファイル名が入るようになっています。不要であれば Cells(rIdx, 7).Value = fName を削除して下さい。 Sub getA_F() Const myPath As String = "c:\sample\" Dim rIdx As Long Dim fName As String fName = Dir(myPath & "*.xls") Do Until fName = "" Workbooks.Open Filename:=myPath & fName rIdx = rIdx + 1 Me.Range(Cells(rIdx, 1), Cells(rIdx, 6)).
エクセルの日付と曜日
まだ締め切っておられないようですのでついでに土曜を青、日曜を赤にする方法を紹介します。 例えば、A1に日付のみ入力、B1に＝WEEKDAY(A1)と入力 この時点でB1には数字（１～７）が表示されます。 そこでユーザー定義でaaaaに設定すると○曜日と表示されます。次に書式から条件付書式を選択→セルの値が→次の値に等しい→７を入力→書式→色→青を選択→OK→追加→今までと同様で７のところを１に色を赤を選択すれば出来ます。A1B1を連続データーで下へ持っていけば簡単にカレンダーが出来上がります。 余分で尚且つ解りにくい説明で恐縮です。
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
