エクセルの学校：全文検索：Hyper Estraier：カレンダー

Results of 1 - 1 of about 1242 for カレンダー (0.001 sec.)

[[20150209110125]]: #score: 6118; @digest: b661452e74f661f60c3865dbf2c86db5; @id: 67244; @mdate: 2015-02-09T06:11:24Z; @size: 4970; @type: text/plain; #keywords: activesheets (16322), takaz (14426), 合→" (13625), 摘以 (12470), subaddress (5728), ー") (4531), 本") (4239), クオ (3612), カレ (3158), 基礎 (2292), 稲葉 (2251), レン (1966), 原本 (1860), ンダ (1733), format (1628), ダー (1606), イパ (1523), 前者 (1486), ーリ (1325), activecell (1219), 葉さ (1190), ハイ (1090), ac (1069), ト名 (1013), パー (970), ルク (926), 必要 (883), name (812), worksheet (705), ブジ (686), オブ (684), 月) (661); 『カレンダーから作表しハイパーリンク作成』（takaz）
初心者で、この学校で色々な情報をいただきコピー、編集して利用させて頂いています書式"d"で年間カレンダーを作成しています。日付をクリックしマクロを動かすと、クリックした日のワーク表を作成し、クリックしたセルに作った表のハイパーリンクを作成しようと思い、次のリンクを参考に http://www.excel.studio-kazu.jp/kw/20150115124647.html 下記を作りましたが、素人編集で基礎がわからないためめちゃくちゃな内容かもしれません… Sub テスト22() Dim wA As Worksheet Dim wB As Worksheet Dim ac As Range Set wA = Worksheets("カレンダー") Set ac = ActiveCell Sheets("原本").Copy After:=Sheets("カレンダー") Sheet.Name = Format(ac.Value, "m/d") Range("D1").Value = Format(ac.Value, "m/d") Set wB = ActiveSheets wA.Cells(accel).Select wsA.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="wsB!B:1" End Sub これを実行すると Sheet.Name = Format(ac.Value, "m/d") の部分で実行時エラー424 オブジェクトが必要ですのエラーがでてその部分を除いて実行しても Set wB = ActiveSheets で同じエラーがでます。（ハイパーリンクの所までたどり着けません…）どのようにしたらできるでしょうか。＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- 色々めちゃくちゃで直すところ一杯ありますけどとりあえず、プロシージャの外、標準モジュールの一番頭に Option Explicit を入れてみてください。エラーの内容が変わるはずです。（稲葉） 2015/02/09(月) 12:46 ---- とりあえず、答え sheetはシステム規定のオブジェクト名ではないので、「オブジェクトはありません」または「変数が定義されていません」エラーになる。 ActiveSheetsも同様。 sいらない Sub テスト22() Dim wA As Worksheet Dim wB As Worksheet Dim ac As Range Set wA = Worksheets("カレンダー") Set ac = ActiveCell '//コピー後のシートがアクティブシートになることを利用する Sheets("原本").Copy After:=Sheets("カレンダー") Set wB = ActiveSheet With wB '//コピーしたシートのD4を日付、シート名は「/」が使えないので、「.」で日付を表示 .Range("D1").Value = Format(ac.Value, "m/d") .Name = Format(ac.Value, "m.d") End With With wA '//カレンダーシートのアクティブセルに、コピーしたシートのB1のリンクを作成し、選択状態にする .Hyperlinks.Add Anchor:=ac, Address:="", SubAddress:="'" & wB.Name & "'!B1" .Select End With End Sub やりたいことがあってるかは不明（稲葉） 2015/02/09(月) 12:58 ---- 稲葉さんありがとうございました。全てうまくいきました! 最後の .Select の後に Set al = ActiveCell al.Font.Size = 20 al.Font.Bold = True (Dim al As Rangeを入れ) でフォント調整と太字にしました。やはり、コピペ編集ではもう限界ですね… 稲葉さんがご指摘以外でも、& wB.Name &の&がどうして必要なのか? .Name = Format(ac.Value, "m.d")の「.」の意味などなど、基礎がすっぽり抜けたまま、ここまで何とかやっている（?）のですが、マクロの基礎を学ぶには本が必要でしょうか? もし可能でしたら、推薦本を教えて頂けると助かります。（takaz） 2015/02/09(月) 13:53 ---- 本は読んだことないです（識者の皆さまごめんなさい）この学校とインターネットで検索した知識のみが私の砦です。というか、Activecellはacに既にセットしてありますよね? al必要なの? ＞稲葉さんがご指摘以外でも、& wB.Name &の&がどうして必要なのか? これは2つ指摘しなければいけないところがありますので、1つずつ説明します。（2つ目は必要なかったです。）【1】 ↓最初こんな書き方でしたよね? ＞SubAddress:="wsB!B:1" ""でくくると文字列になります。 Sub test() Dim WS As Worksheet Set WS = ActiveSheet MsgBox "ダブルクオートで挟んだ場合→" & "WS.Name & !A1" & vbNewLine & _ "変数を変数として使った場合→" & WS.Name & "!A1" End Sub ↑のコードを実行して、違いを確認してください。 takazさんが提示されたコードは前者です。前者のコードは変数の名前を表示しているだけであり、シート名を表示していません。【2】＞（抜粋）&がどうして必要なのか? 「&」が必要なのではなく、シングルクオートを付与しています。 http://officetanaka.net/excel/function/tips/tips69.htm INDIRECT関数を使用するときは、シート名をシングルクオートで挟む必要がありましたが、今回は必要ありませんでした。＞ .Name = Format(ac.Value, "m.d")の「.」の意味シート名やブック名に使えない文字があります。そのうちの一つに「/」が含まれており、前述のコード内コメントに記載した通りシート名に使えない文字を.に置き換えただけです。シート名の書式は "mmdd" でも良いかもしれません。（稲葉） 2015/02/09(月) 14:33 ---- 稲葉さん説明ありがとうございました。書かれた内容はようやく理解できる程度ですが説明を読んでも、他のサイトを見ても、私にはマクロ以前に関数の知識が足りていないように思います。少し、本腰入れて学習してみます。お世話になりました。（takaz） 2015/02/09(月) 15:11 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201502/20150209110125.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ