Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

333 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【75766】Re:ＶＢＡでハイパーリンク制御

カリーニン - 14/7/3(木) 20:01 -


	引用なし

	パスワード

横横。

>修正試みましたが、力及ばずでした。

Sub sample()
　　Const myFolder As String = "画像のフォルダ名をここに書く"
　　Dim fname
　　Dim currentfolder As String

　　'current folderを退避
　　currentfolder = CurDir

　　'folderを画像フォルダに変更
　　ChDrive myFolder
　　ChDir myFolder

　　fname = Application.GetOpenFilename("画像 Files (*.jpg), *.jpg")
　　If TypeName(fname) = "Boolean" Then
　　　'current folderを復旧
　　　 ChDrive currentfolder
　　　 ChDir currentfolder
　　　 Exit Sub
　　end if
　　
　　ActiveCell.Value = fname　　'★ ActiveCellに画像のファイル名を書き込む

　　'current folderを復旧
　　ChDrive currentfolder
　　ChDir currentfolder
End Sub

または

Sub sample()
　　Const myFolder As String = "画像のフォルダ名をここに書く"
　　Dim fname
　　Dim currentfolder As String

　　'current folderを退避
　　currentfolder = CurDir

　　'folderを画像フォルダに変更
　　ChDrive myFolder
　　ChDir myFolder

　　fname = Application.GetOpenFilename("画像 Files (*.jpg), *.jpg")
　　If TypeName(fname) <> "Boolean" Then　　　　
　　　ActiveCell.Value = fname　　'★ ActiveCellに画像のファイル名を書き込む
　　End If
　　'current folderを復旧
　　ChDrive currentfolder
　　ChDir currentfolder
End Sub

・ツリー全体表示


	【75765】Re:ＶＢＡでハイパーリンク制御

ゆーあ - 14/7/3(木) 18:36 -


	引用なし

	パスワード

▼
カリーニン　さん
γ さん

コメントありがとうございます。
大変助かります。

私としても、マクロ記録をしながら意味を調べたりして
行っておりますが、まだ初心者ですので上手く行きません。

γ さん：
>>　　If TypeName(fname) = "Boolean" Then Exit Sub
>のところですが、フォルダを復旧せずに抜けてしまっているので、
>修正してください。

修正試みましたが、力及ばずでした。

・ツリー全体表示


	【75764】Re:ＶＢＡでハイパーリンク制御

γ - 14/7/2(水) 22:55 -


	引用なし

	パスワード

>　　If TypeName(fname) = "Boolean" Then Exit Sub
のところですが、フォルダを復旧せずに抜けてしまっているので、
修正してください。

・ツリー全体表示


	【75763】Re:ＶＢＡでハイパーリンク制御

γ - 14/7/2(水) 21:34 -


	引用なし

	パスワード

横から失礼します。

> 画像が保存されているフォルダ(仮に、C:￥画像としてます)を開き、
> その後、手動で画像フォルダに保存した画像を選択すると、
> 任意のセルに、画像のパス名(C:\画像\〇〇.jpg)を表示することは出来ますでしょうか。
のところは、こんな感じでどうですか？

Sub sample()
　　Const myFolder As String = "画像のフォルダ名をここに書く"
　　Dim fname
　　Dim currentfolder As String

　　'current folderを退避
　　currentfolder = CurDir

　　'folderを画像フォルダに変更
　　ChDrive myFolder
　　ChDir myFolder

　　fname = Application.GetOpenFilename("画像 Files (*.jpg), *.jpg")
　　If TypeName(fname) = "Boolean" Then Exit Sub
　　
　　ActiveCell.Value = fname　　'★ ActiveCellに画像のファイル名を書き込む

　　'current folderを復旧
　　ChDrive currentfolder
　　ChDir currentfolder
End Sub

★のところですが、まず、ハイパーリンクを張る作業をよく観察して下さい。
その機能で欠けているのか何かをよく考え、
本当に必要な機能だけ追加なり修正なりするように考えてください。

また、マクロの作成には、既にご指摘のとおり、まずマクロ記録をとって、
その意味を調べたりする作業を自分でして下さい。
かなりの部分がそのまま使えたりするはずです。

・ツリー全体表示


	【75762】Re:ＶＢＡでハイパーリンク制御

カリーニン - 14/7/2(水) 20:51 -


	引用なし

	パスワード

>フォーム上のコマンドボタンを押すことで、
>画像が保存されているフォルダ(仮に、C:￥画像としてます)を開き、

これは↓でいけます。

CreateObject("Shell.Application").ShellExecute "ファイルやフォルダのパス"

>その後、手動で画像フォルダに保存した画像を選択すると、
>任意のセルに、画像のパス名(C:\画像\〇〇.jpg)を表示することは出来ますでしょうか。
>更に欲を言えば、ハイパーリンクに出来ればと考えてます。

これはエクセルの制御の外にありますので不可能だとおもいます。APIを使えば出来るのかもしれませんが
分かりません。
ただ、ダイアログで特定のフォルダ内の特定の拡張子のファイルをユーザーに選択させ、選択したファイル
に対して処理を行う、というのは可能です。

参考HPです。
ht　tp://officetanaka.net/excel/vba/file/file02.htm
Sample7の二つ目です。

これと
Sample3
>任意のフォルダを開く

を組み合わせます。

セルにハイパーリンクを埋め込むのはマクロの自動記録が参考になると思います。

・ツリー全体表示


	【75761】Re:ＶＢＡでハイパーリンク制御

ゆーあ - 14/7/2(水) 17:22 -


	引用なし

	パスワード

カリーニンさん

コメントありがとうございます。
又、説明不足で大変申し訳御座いません。

それに多く望みすぎた気がしますので、
まず質問を絞ります。

フォーム上のコマンドボタンを押すことで、
画像が保存されているフォルダ(仮に、C:￥画像としてます)を開き、
その後、手動で画像フォルダに保存した画像を選択すると、
任意のセルに、画像のパス名(C:\画像\〇〇.jpg)を表示することは出来ますでしょうか。

更に欲を言えば、ハイパーリンクに出来ればと考えてます。
宜しくお願い致します。

・ツリー全体表示


	【75760】Re:ＶＢＡでハイパーリンク制御

カリーニン - 14/7/1(火) 20:05 -


	引用なし

	パスワード

ちょっと意味がつかみきれてないのですが、ファイルやフォルダを
起動するのは

CreateObject("Shell.Application").ShellExecute "ファイルやフォルダのパス"

でいけます。
画像ファイルを表示するのにアプリケーションをデフォルトのものと違うものを指定する
場合はちょっとコードが違ってきます。

・ツリー全体表示


	【75759】ＶＢＡでハイパーリンク制御

ゆーあ - 14/7/1(火) 17:26 -


	引用なし

	パスワード

WinXP Excel2000

画像フォーム上に、
　　・画像登録・変更ボタン
　　・リンク先表示ラベル
　　・画像表示ボタン
を設置しており、やりたい事として、

１・画像登録・変更ボタン
　　　⇒ボタンを押すと、ハイパーリンク先として、
　　　　画像を入れてあるフォルダを開き、
　　　　任意のセルに登録・変更したい画像のアドレスを登録する

２．リンク先表示ラベル
　　　⇒画像登録・変更ボタンで登録した任意のセルを参照し
　　　　ハイパーリンクのアドレスを表示する
　　　（ハイパーリンク登録されているか確認用）

３．画像表示ボタン
　　　⇒画像登録・変更ボタンで登録したハイパーリンク先画像を
　　　　別ウィンドウで表示する

ということを行いたいです。
ヒント等でも構いませんので、どなたかご教授頂ければ幸いで御座います。
宜しくお願い致します。

・ツリー全体表示


	【75758】Re:excelからpptへグラフを出力したい

γ - 14/6/30(月) 21:47 -


	引用なし

	パスワード

本サイトの基本方針を今一度読んでくださいね。
してはいけない質問というのがあるでしょ？

・ツリー全体表示


	【75757】excelからpptへグラフを出力したい

VBA初心者 - 14/6/29(日) 23:24 -


	引用なし

	パスワード

10個のグラフを1つのpptスライドへ出力したいと考えています。
グラフの配置は、下図のようになります。

■：グラフ
________
|■■■|
|■■■|
|■■■|
|■____|

以下のように、変数を定義した場合、どのようにして上図のような配置にすることができますか？
宜しくお願いします。

ループ回数_________________i
パワーポイントの位置_______Top=j
パワーポイントの位置_______Left=k
図の高さ___________________Height=l
図の幅_____________________Width=m

・ツリー全体表示


	【75756】Re:Valueと変数の使い方

芸人 - 14/6/29(日) 16:48 -


	引用なし

	パスワード

γ さん、いつも丁寧な解説ありがとうございます。

>ちなみに何という漢字なんでしょう。

数、とか列とか、ワークシート、セル範囲とか
何でもアリみたいなかんじです。わかりやすいんですが
違和感があります。

>i,j,k,l,m,n がいいでしょう。
>　　↑ちなみに、これはintegerの頭2文字の間に入る、と覚えるといいかも。

覚えやすいですね。

>　Range(Cells(3, 10), Cells(3, 15)).Value = "→"
>　はOKですか？

難しく考えすぎてました。
Range("D5:I5") .Value = "→"
という感じでFor　Toは必要なかったですね。
勉強になりました。

・ツリー全体表示


	【75755】Re:コード簡略化

ゆーあ - 14/6/27(金) 13:40 -


	引用なし

	パスワード

カリーニンさん

ありがとうございます！
かなり簡略できました！助かりました！

・ツリー全体表示


	【75754】Re:コード簡略化

カリーニン - 14/6/27(金) 9:54 -


	引用なし

	パスワード

こんな感じでいけるのでは？

Dim i As Integer

'中略

　For i = 1 to 100
　 Activeworkbook.Worksheets("Sheet2").Cells(ACR,i).Value = フォーム□□.Controls("TextBox" & i).Value
　Next i

・ツリー全体表示


	【75753】コード簡略化

ゆーあ - 14/6/27(金) 9:48 -


	引用なし

	パスワード

WinXP Excel2000

フォーム上にあるテキストボックスで、セルの値を表示・入力しており、
連動しているのですが、テキストボックスの数が多いので、
かなりコードが長くなっております。
簡略化コードについて、ご教授宜しくお願い致します。
下記に現コードを示します。

Dim ACR As Long
ActiveWorkbook.Worksheets("Sheet2").Activate
ACR = ActiveCell.Row
If Not フォーム〇〇.Label1.Caption = Empty Then

　　Cells(ACR, 1).Value = フォーム□□.テキストボックス1
　　Cells(ACR, 2).Value = フォーム□□.テキストボックス2
　　Cells(ACR, 3).Value = フォーム□□.テキストボックス3
　　Cells(ACR, 4).Value = フォーム□□.テキストボックス4
　　Cells(ACR, 5).Value = フォーム□□.テキストボックス5　　　　　　　　　　　・
　　　　　　　　　　　・
　　　　　　　　　　　・
　　　　　　　　　　　・
　　Cells(ACR, 100).Value = フォーム□□.テキストボックス100
　　
MsgBox "登録・更新しました。"
Else
MsgBox "情報が選択されていません。"
フォーム〇〇.Label1.Caption = Empty
End If
　Worksheets("Sheet1").Select
End Sub

・ツリー全体表示


	【75752】Re:Valueと変数の使い方

γ - 14/6/26(木) 21:22 -


	引用なし

	パスワード

コメントは求めておられないと思いますが、ついでに。

> 前回変数にAを使ったのは、私の初心者本ですと変数に漢字が使われているのです。
> さすがに漢字は違和感が強くてためらわれました。
ちなみに何という漢字なんでしょう。

For 列 = n + 5 To m + 3
　　 Cells(3, 列).Value = "→"
Next 列
とかですか？まあ、それもありますけどね。
i,j,k,l,m,n がいいでしょう。
　　↑ちなみに、これはintegerの頭2文字の間に入る、と覚えるといいかも。

> Range(Cells(3, n + 5), Cells(3, m + 3)).Value = "→"
> ですが変数使ってないのに何でこれでいいいのかわかりませんが
> Rangeについて検索したら初心者には若干ハードルが高いと書かれているサイトがありました。

　Range(Cells(3, 10), Cells(3, 15)).Value = "→"
　はOKですか？
　10のかわりに n + 5 、 15 のかわりに m + 3 と変数n , m を使っていると
　考えればいいでしょう。

　Excelの操作対象は、殆どがRangeに関連するものですから、
　これをマスターすることが必要ですよ。
　ht tp://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_cell.html
　などを熟読ください。　

・ツリー全体表示


	【75751】Re:エクセルデータからの差し込み印刷

γ - 14/6/26(木) 20:07 -


	引用なし

	パスワード

▼くろひろさん：
> ExcelからWordを起動し、差し込み印刷を開始したいのですが、
> 差し込みボタンが表示されません。
基本的な点を教えてください。
1. 単独でWordを開いたら、差し込み印刷が使えるのですか？
2. Excel,Wordのバージョンは？
3. ExcelからWordを起動したい理由は？
　普通、Wordから使いませんか？

・ツリー全体表示


	*【75750】Re:×を代わりに使う方法はないでしょう...**

秋田猫 - 14/6/26(木) 20:00 -


	引用なし

	パスワード

γ さん

ありがとうございます。
数日の謎が解決できました。ありがとうございます。
とてもたすかりました。
心から感謝いたします。

▼γ さん：
>Sub test()
>　　Dim s As String
>　　s = Range("A1").Text
>　　s = Replace(s, "×", "*")
>　　s = Replace(s, "÷", "/")
>　　Range("B1").Value = Application.Evaluate(s)
>End Sub
>といった方法でできると思います。

・ツリー全体表示


	【75749】エクセルデータからの差し込み印刷

くろひろ - 14/6/26(木) 14:48 -


	引用なし

	パスワード

ExcelからWordを起動し、差し込み印刷を開始したいのですが、差し込みボタンが表示されません。どのようにすれば、可能でしょうか？

・ツリー全体表示


	*【75748】Re:×を代わりに使う方法はないでしょう...**

γ - 14/6/26(木) 0:28 -


	引用なし

	パスワード

Sub test()
　　Dim s As String
　　s = Range("A1").Text
　　s = Replace(s, "×", "*")
　　s = Replace(s, "÷", "/")
　　Range("B1").Value = Application.Evaluate(s)
End Sub
といった方法でできると思います。

・ツリー全体表示


	*【75747】×を代わりに使う方法はないでしょうか？**

秋田猫 - 14/6/25(水) 23:22 -


	引用なし

	パスワード

はじめまして、
もし、できる方法があればご教授いただけませんでしょうか？

計算の結果と計算式を別々のセルにあらわさなくてはならなく
二重計算が手間な為
*や/を使わず×や÷を使って計算する方法はないのでしょうか？
もしくは、×に*の性質を持たすことは可能なのでしょうか？

A1　　/ B1
計算式/答え

○×○÷（○+○）/○

/はセルの区切りのつもりです。

よろしくお願いします。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

333 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free