エクセルからリンクさせる方法は?
- エクセルのセルをクリックし、他のメールアドレスへ確実にリンクさせる方法を教えてください。
- Yahoo!ではできるが、G-mailでは表示が一瞬しかされず、すぐに消えてしまい、受信トレイが表示されます。
- Worksheet_SelectionChangeイベントにActiveWorkbook.FollowHyperlink Address:=Range("B2").Valueというように記述していますが、解決しません。
- ベストアンサー
受信メールのフィルター(ラベル)へエクセルから確実にリンクする方法をお教えいただけないでしょうか
エクセルのセルをクリックすると ほかのセルに入力してあるメールアドレスへ 確実にリンクさせる方法をお教えいただけないでしょうか Yahoo!でなら、できましたが、 G-mailですと僅かな時間だけ アドレスウィンドウにリンクさせたいラベルまで表示されますが、 すぐその部分が消えてしまい、受信トレイが表示されます。 ちなみに エクセルのWorksheet_SelectionChangeイベントに ActiveWorkbook.FollowHyperlink Address:=Range("B2").Value というように記述しています Range("B2")にはG-mail側のフィルター(ラベル)に 相応するアドレスを入力してあります いろいろ私なりに調べてやってみたつもりですが、 解決しませんので、お教えいただけないでしょうか 質問内容が分かりにくいかもしれませんが、よろしくお願いします
- muchasei
- お礼率100% (6/6)
- その他(趣味・娯楽・エンターテイメント)
- 回答数1
- ありがとう数1
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
>Range("B2")にはG-mail側のフィルター(ラベル)に >相応するアドレスを入力してあります コードに問題は無いと思いますが、 アドレスやラベル名に間違いはありませんか? https://mail.google.com/mail/#label/ラベル名 確認してみてください。
関連するQ&A
- エクセルでのメールアドレスのリンクについて
エクセルを使用して、セルにメールアドレスを入力しています。 アドレスを入力すると、自動的にリンクされるようになり、クリックすると飛んでしまいます。 リンクを解除するにはどうすれば良いのでしょうか? 教えてください。よろしくお願い致します。
- ベストアンサー
- その他([技術者向] コンピューター)
- セルに入力された値を別セルに条件付で転記したい
エクセルにおいて、 セルのA1に 1 と入力したら セルA2に 半角で Q00000001と表示 セルのA1に 10 と入力したら セルA2に 半角で Q00000010と表示 セルのA1に 100 と入力したら セルA2に 半角で Q00000100と表示させたいです。 先頭は必ずQで計9桁でセルA1の入力値がみたない場合0で埋める。 これを行う一番いい方法は何がありますでしょうか? できたらセルには式は入れたくないです。 そのエクセルには Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call ●● End Sub が入っています。 シート保護をかけて セルA1とB1しか入力できないようになっています。 今はセルB1に入力するとマクロ●●が走って セルB2にマクロのSelect Caseで変換された値が転記されるようになっています。 もうひとつマクロを作って Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call ●● Call ●●2 End Sub がいいでしょうか? その場合、そのマクロの記述そのものを教えてください。 お願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルでメールのリンクができなくなった
エクセルのセルにメールアドレスやURLを入れると、 下線がついて飛ぶようになっていましたが、 設定を壊したらしく、普通の文字入力にしかなりません。 元に戻したいのですがどうすればいいでしょう。 個別のセルの問題ではなく、どのシート、どのセルでも リンクが効かなくなりました。 ちなみにWindows XPです。
- ベストアンサー
- その他MS Office製品
- エクセル マクロを利用して繰り返して入力する方法
マクロでA1B1C1D1E1F1セルに入力しF1入力後A2B2C2D2E2F2と 下方向へ繰り返し800行くらいまで入力し、それとB列はスキップしたいのですが下記の方法で別々のシートでは うまくいくのですが同じシ-ト内ではエラ-になってしまいます 次の行への移動 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 7 Then Cells(Target.Row + 1, 1).Select End If End Sub B列のスキップ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("G1") <> "" Then If Target.Column = 2 Then Target.Offset(0, 1).Select End If End If End Sub どなたかご存じの方教えて下さい
- ベストアンサー
- オフィス系ソフト
- カーソルを動かしたときは発動させたくありません
エクセルの Worksheet_SelectionChangeイベントで --------------------------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then MsgBox "$A$1です" End If End Sub --------------------------------------------------------- のコードを標準モジュールに書いて、A1セルをクリックすると、MsgBoxが表示させますが、 B1セルから、キーボードの「→」キーを押してA1に移動してもMsgboxが表示されてしまいます。 クリックした時はマクロを発動させたいのですが、カーソルを動かしたときは発動させたくありません。 そんな事は可能でしょうか?
- ベストアンサー
- Visual Basic
- エクセルで自動で入るメールリンクを無くすには
仕事でエクセルでリスト入力をしています。 メールアドレスを入力すると、自動でリンクが貼られちゃいます。 フォントの大きさも変わっちゃうし、そのセル内の情報を修正しようとして 矢印キーじゃなくうっかりマウスでそのセルをクリックしちゃったりすると いちいちメーラーが立ち上がって邪魔なので、一括でそのファイル(タブでもいいんですが) 内にあるメールアドレスからのリンクを削除したいんです。 上司に聞いても、忘れちゃったらしく、ヘルプやマニュアル本を見ても探せなかったので 質問しています。 あさってまでの締め切りなのですぐに回答頂きたいです。 よろしくお願いします。ぺこ <(_ _)>
- ベストアンサー
- オフィス系ソフト
- エクセルで指定したセルへカーソルを移動させる
エクセル2007で セル”I1”に文字を入力してエンターを押したら、“B11”へセルを移動させたく、 以下のように作ってみたのですが、 反応してくれません。 このVBAもインターネット上にあったものを参考にしただけなので、 何が悪いのかさっぱりわかりません。どこを修正したらよいのか教えてください。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Select Case Target.Address(0, 0) Case "i2" [b11].Select End Select End Sub
- ベストアンサー
- Excel(エクセル)
- エクセルVBA 双方向での書式のリンク方法
エクセルVBAにて双方向での書式のリンクをさせたいと考えています。 具体的にはセルの背景色の双方向リンク方法について教えていただきたいです。ここで双方向での背景色のリンクとは別々のシート上のセルの背景色をどちら側の変更であっても、もう一方に変更を反映させることです。 【シート1】 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Sheets("Sheet2").Range("$A$1").Value = Sheets("Sheet1").Range("$A$1").Value Sheets("Sheet2").Range("$A$1").Interior.ColorIndex = Sheets("Sheet1").Range("$A$1").Interior.ColorIndex End If End Sub 【シート2】 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Sheets("Sheet1").Range("$A$1").Value = Sheets("Sheet2").Range("$A$1").Value Sheets("Sheet1").Range("$A$1").Interior.ColorIndex = Sheets("Sheet2").Range("$A$1").Interior.ColorIndex End If End Sub 上記のコードを記述しています。値のリンクはできているのですが背景色のリンクがどうしてもうまくできません。どちらかの変更と同時にもう一方の背景色も変更されるようにするにはどうすればよいでしょうか? どんな方法でもかまいませんのでお詳しい方よろしくお願いします。
- 締切済み
- Visual Basic
- 「Excelのセルへの入力内容の転記と元の内容への復帰」
「Excelのセルへの入力内容の転記と元の内容への復帰」 何故それが必要かは別にして、次のようなことがしたい。 ・あるセル(例えばA1)にはある関数(式)が設定されている。 ・いま、セルA1にある値が入力されたとき、 ・その値を別のセル(例えばB1)へ転記(保存)し、 ・セルA1には元の関数に戻す。 これを、VBAで実現するにはどうすれば良いのでしょうか?。お教えください。 changeやselectionchangeイベントなどを使用すると出来そうですが、単純なコーディングではchangeの無限ネスト(無限再帰)となってしまいます。 例えば、次のようなコーディング:セルC1をA1セル選択時の関数保存場所として補助的に使用している。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "A1" Then Range("B1") = Range("A1") Range("A1").Formula = Range("C1").Formula End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "A1" Then Range("C1").Formula = Range("A1").Formula End If End Sub これでは何か発想の転換が必要に思えます。
- 締切済み
- Visual Basic
- Excelマクロでメールを送る時
いつもお世話になっております。 EXCELで、ワークシートのある部分に"MAILADDRESS"という名前を付け、 そこにメールアドレスを入れます。 同じブック内の別ワークシートをcsv形式で保存して、"MAILADDRESS"に入力されている メールアドレスにおくるというVBAの命令を書いて下記の通りとしてみました。 プログラムはエラーの表示がされず終わるのですが、メールを送ってくれません。 何故でしょうか?教えて下さい。 MAILADDRESSのセルはデータの最後に"EOL"という文字列を入力しています。 Dim R As Range For Each R In Range("MAILADDRESS") If R.Value <> "EOL" Then ActiveWorkbook.SendMail Recipients:=R.Value End If Next R Excelのバージョンは2002 SP3です。
- ベストアンサー
- オフィス系ソフト
お礼
あれ???できた! という感じです。 2~3日ほど頭から離れませんでしたので 助かりました! 本当にありがとうございました。