各種契約書など既存の紙ベースで保管されていたものを外注でスキャニング(TIF)して
分類・運用・管理を任されました。
いくつか、平行して行っているのですが、今回の”自家用通勤許可願い”の場合は
既存にエクセルで管理表があり、分類通し番号が振られています。紙も同じ通し番号が
振られているために外注にはその通し番号をファイル名で振ってもらいました。約1000枚
6桁での番号(000001.tif~)です。
他の案件で量が少ない物でアクセスで運用する必要が無いものは1件づつまとめたフォルダ自体に
手動でハイパーリンクを貼っています。
今回の場合は量が多いので手作業は避けたいのですが、単純にTIFのフォルダを検索すれば済みますが
出来れば今後の事も考えて、マクロで組めるものなのか、組むとしたらVBAになるのかなどを教えて
頂ければ助かります。また、他の根本的な違った方法などもあれば教えていただきたいです。
No.3ベストアンサー
- 回答日時:
こんにちは。
#2 の回答者です。
>入っているので、この方法だと”レジストリ変更”か”方法1”でも
>使用する端末全てを変更する必要があると思われるのですが如何でしょうか?
レジストリを変更するのと、マクロで、を変更するのとは、同じことになってしまいますから、ヘタをすると、会社のセキュリティに関わってきてしまいます。
会社のは、やむを得ず、方法1 の以下の方法になりますね。
[方法 1 : 対象ファイルのファイルの種類をチェックするための [ダウンロード後に開く確認をする] オプションをオフにする ]
しかないように思います。
以前、同じようなことを試したことがあるのですが、他の方法(IE で、イントラのセキュリティを下げる)では、私には、解決しなかったことがあります。(間違っているかもしれません)
>お勧めなサイトか参考書
>(出来れば金銭的に負担の少ないかわかりやすいものがいいのですが・・・)
お金の問題というのは、誰でも先の分からないものに、お金を投資などしたくないものです。しかし、人は、お金を掛ければ掛けるほど、それに執着するものだと思います。だから、お金を掛ければ、そこそこには上達はするものなのですね。VBAの学校に入門から上級まで行くと、だいたい、30~40万円かかってしまいますから、それを思うなら、書籍で、4~5,000円は我慢してもらわないと、上達は難しいように思います。
私は、Webサイトは、あまりお勧めするところがありません。
http://officetanaka.net/
Office TANAKA の田中亨氏や、
http://www.asahi-net.or.jp/~ef2o-inue/top01.html
Excelでお仕事 の井上氏
などのサイトがありますが、ものすごく中途半端な気がします。基礎的なことは基礎的なことで十分なのです。それ以上に、求める必要がないと思っています。
構造化がどうとか、goto がどうとか、Select が問題だとかいう人がいます。また、中には、コンマ0.5秒が遅いからとかいうクレームをつける人さえいます。ワザを競い合うとか、誰かにコードを見せることもなければ、型やスタイル(スマートさ?)にこだわることもありませんし、BASIC コードが書けるなら、VBAとしての基本構文とVBA関数のいくつかを覚えれば良いのです。究極的には、記録マクロを取って、それを直せればよいです。
掲示板の回答者として、ある程度続けると、時に、意地の悪い野次が入ったり、エラーが出るからダメとかいうことになるから、ある程度の緊張を持ったコードを書いているだけです。
私のお勧めは、Moug の大村あつしさんの
http://www.amazon.co.jp/exec/obidos/ASIN/4774119 …
かんたんプログラミング Excel2003 VBA 基礎編 (単行本)
\2,499 (税込) (3部の最初の編)
丁寧なご回答ありがとうございます。
Wendy02さんのお勧めの書籍くらいの金額であれば入門として
試すのに良いと思いますので、その書籍を本屋で見てみます。
私自身、wordやエクセルもまだ中途半端ですので、全て基礎から
やりたいと思っていますので、試してみます。
また、警告の件はとりあえずは使用する人間は限られていますので
方法1以前に一斉通知すればとりあえずは済みそうです。
wordやエクセルもブランクがあったので最近使用し始めたのですが
基礎的な事も忘れている始末なので、wordやエクセルも学ばないと
いけないと思います。改めて学び方などを質問させて頂きたいと
思いますので今後もよろしくお願いします。
最後にお忙しい中大変ありがとうございました。
No.2
- 回答日時:
こんぱんは。
HYPERLINK(リンク先,別名) を使って、
例えば、My Document のフォルダにあるとします。
=HYPERLINK("C:\My Document\" & TEXT(ROW(A1),"000000") &".tif",TEXT(ROW(A1),"000000") &".tif")
と一つ入れたら、後は、オートフィルでドラッグ・コピーして作ってもよいと思います
マクロなら、
'ただし標準モジュールです。
Sub Test1()
Dim UpTo As Long
Dim i As Long
Const myPath As String = "C:\My Documents\"
'上限
UpTo = 1000
For i = 1 To UpTo
ActiveSheet.Hyperlinks.Add _
Cells(i, 1), _
myPath & Format$(i, String(6, "0")) & ".tif", , , _
Format$(i, String(6, "0")) & ".tif"
Next i
End Sub
この回答への補足
大変ありがとうございます。貴殿様のHYPERLINK関数のドラッグ&ドロップで
行うことが出来ました。
ただ、リンクする時に警告表示が出るので調べた結果、http://support.microsoft.com/kb/829072/ja
で解決方法があったのですが、現在管理しているエクセルは会社の共有に
入っているので、この方法だと”レジストリ変更”か”方法1”でも
使用する端末全てを変更する必要があると思われるのですが如何でしょうか?
マクロについては、自分の知識ではエクセル自体も初心者かよくて中級者程度なので、難しいようです。ですが、スキルアップとしてエクセル自体と
マクロVBAの勉強をしたいと思うのですが、お勧めなサイトか参考書を
よろしければ教えていただければ(出来れば金銭的に負担の少ないかわかりやすいものがいいのですが・・・)思います。
No.1
- 回答日時:
下記のものは、単に A1セル から A1000セル までにハイパーリンクを
設定するものです。
xxxxx.tif ファイルは、 C:\TEMP にある前提です。
( 000001.tif ~ 001000.tif まで千個あります。)
Sub Macro_x()
Dim num_1
Dim num_2
Dim txt_1
Dim fom_1
num_1 = 0
num_2 = 1
fom_1 = ".tif"
Range("A1").Select
'
Do Until (num_1 >= 1000)
num_1 = num_1 + num_2
If (num_1 < 10) Then
txt_1 = "00000" & num_1 & fom_1
ElseIf (num_1 < 100) Then
txt_1 = "0000" & num_1 & fom_1
ElseIf (num_1 < 1000) Then
txt_1 = "000" & num_1 & fom_1
ElseIf (num_1 < 10000) Then
txt_1 = "00" & num_1 & fom_1
ElseIf (num_1 < 100000) Then
txt_1 = "0" & num_1 & fom_1
End If
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\TEMP\" & txt_1, TextToDisplay:=txt_1
ActiveCell.Offset(1, 0).Select
Loop
End Sub
この回答への補足
大変ありがとうございます。しかし、残念ながら自分の知識では貴殿様が
書いていただいたものを応用して使用するまでの知識がわたしにはありませんでした。せっかく書いていただいたのに申し訳ございません。
ですが、出来れば自分もマクロをある程度使えるようになりたいので
回答2様につけた補足のように学ぶ方法をおしえていただければと思います。20年近く前にBACICで簡単なプログラムを組んだりした経験はあります。
エクセルは2年ほど前はそれなりに使用できていたのですが、ブランクが
あったためにかなり忘れている部分があります。
もし、よろしければ教えていただければ幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/16 14:36
- その他(データベース) Excel VBA 転記について 1 2022/04/20 16:55
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける (再質問) 4 2022/09/14 22:51
- Visual Basic(VBA) 指定月分の顧客データファイルを統合して並べ替え、所定の場所に貼り付ける 3 2022/09/10 07:55
- OCNモバイルONE 格安SIMの契約について質問失礼しますm(_ _)m 2 2022/05/28 15:46
- Excel(エクセル) 【マクロ】ファイル名の日付によって、保管するフォルダを、自動選択したい 4 2023/08/16 11:24
- 格安スマホ・SIMフリースマホ SMS認証用の電話番号が欲しい 6 2022/06/12 18:21
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
雪の女王、ボラの少女時代を演...
-
昔のテレビっておっぱいが出て...
-
Adobe Acrobat と Adobe Reader...
-
水に映った月明かりを表す言葉
-
韓流女と別れたい
-
imac2012ってまだ使えますか?...
-
BIG BANGのPV(MV)の意味
-
デスクチェア―のガスシリンダー...
-
BTS(防弾少年団)の曲を教えてく...
-
高卒、専門卒、短大卒の低学歴...
-
iPhoneのカメラだけが欲しくて ...
-
サイト更新頻度
-
バンタンのDOPEの最初って ラプ...
-
次の人達の骨格タイプわかる方...
-
Satella1を今すぐ復活させるには?
-
latestの対義語
-
Red velvetのアイリーンって可...
-
"の" に ついて
-
●NHKがどんどん中国・韓国より...
-
twiceのツウィちゃんの、この卒...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
昔のテレビっておっぱいが出て...
-
複数のテキストファイルをエク...
-
【バッチファイル】ホスト名を...
-
バンタンのDOPEの最初って ラプ...
-
TextBoxコントロールを引数とし...
-
VBAで○○:○○と表示させたいのに...
-
Adobe Acrobat と Adobe Reader...
-
参照設定は2.8と6.0 6.1とどち...
-
水に映った月明かりを表す言葉
-
TWICEのライブについてです 母...
-
デスクチェア―のガスシリンダー...
-
韓流女と別れたい
-
imac2012ってまだ使えますか?...
-
韓流好き妻の行動に怒り…私は狭...
-
減少率の計算方法
-
PCの不具合について
-
東京ドームのコンサート、一番...
-
角度の求め方
-
latestの対義語
-
KPOP女性4皇
おすすめ情報