質問: vbnullstring then msgbox wkstr & "フォルダがありません。作成します。" mkdir wkstr else msgbox wkstr & "フォルダは存在します。" end if activesheet.hyperlinks.add anchor:=activecell, address:=wkstr end if
回答: >aセルに管理番号を入力し aセルということですから、a列であればどこでも、 かつ、該当セルをactiveにしてからマクロ実行ですね? '-------------------------- sub makehylink() dim wkstr as string if activecell.column <> 1 then exit sub if activecell.value = "" then msgbox "アクティブセルは未入力、やり直し" exit sub end if wkstr = thisworkbook.path & "\" & activecell.value if dir(wkstr, vbdirectory) = "" then msgbox "フォルダー:" & wkstr & vblf & " を、作成します。" mkdir wkstr else msgbox "フォルダー:" & wkstr & vblf & " は、存在します。" end if activesheet.hyperlinks.add anchor:=activecell, address:=wkstr end sub '------------------------------------------- 以上です。