Excel2007を使っています。

リンクを張りたいセルがあるので、
そこにハイパーリンクを設定したのですが、
するとその場所のフォントが「MSゴシック」に変わってしまいました。

ハイパーリンクを設定した際に、
フォントを変更されたくないのですが、
何か方法はございませんか?

もちろんリンクされるので、
下線が引かれたり、フォントの色が変わってしまうのは
仕方ないと思っています。

ぜひご回答お願い致します。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

No.1です。



>「ハイパーリンク」というボタン?はどこにあるのでしょうか?

「セルのスタイル」→「データとモデル」にあると思います。
ハイパーリンクを設定しているときのみ出現するようです。
    • good
    • 1
この回答へのお礼

ありがとうございます。
無事設定できました。

ハイパーリンクを設定していないと表示されないのですね。
気付きませんでした。

お礼日時:2009/05/28 10:15

「ホーム」タブの「スタイル」内にある「ハイパーリンク」を右クリック→変更、書式設定ボタンから変更してください。

    • good
    • 1
この回答へのお礼

ご回答ありがとうございます。

「ホーム」タブの「スタイル」を見たのですが、
以下のボタンしかありませんでした。
・条件付き書式
・テーブルとして書式設定
・セルのスタイル

「ハイパーリンク」というボタン?はどこにあるのでしょうか?
もう少し詳しく教えて頂けませんか?

ぜひよろしくお願い致します。

お礼日時:2009/05/27 14:43

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QEXCELでハイパーリンクの解除を行うと書式設定が失われる

ハイパーリンクの解除をおこなうと、セルの書式設定が解除されてしまいます。
ハイパーリンクとして必要なところと、必要ないところ(単に記号的な使い方をしています)と分けているため、設定でハイパーリンクを無効にすると不便になってしまいます
何か対処法はありますでしょうか?

OSはMEでExcel2000にSR-1をあてています。

Aベストアンサー

回答がありませんね。

ハイパーリンクを設定したセルに対し、ハイパーリンク→ハイパーリンクの削除を行うと『セルの書式が解除されるのをどうにかしたい』ということで考えてみました。
ただ、『必要なところと、必要ないところ(単に記号的な使い方をしています)と分けているため』については、意味を理解できていません。見当違いの回答かもしれませんが、その場合はご容赦を。

通常方法では思いつきませんので、ハイパーリンクのみを解除するマクロを書いてみました。(Excel2000)

マクロでハイパーリンクを削除しても、セルの書式は初期化されてしまうみたいです。
『Style スタイル』でどうにかなるかと思いましたが、余り芳しくありませんでした。
また、セルの書式を配列に全部覚えておければ簡単ですが、コーディングが大変みたいでした。
コントロールのPropertiesコレクションのようなものがあれば楽ですが、Excelのセルに対してはないみたいです。
結局、セルの値または式を退避しておき、ハイパーリンクごと消去し、値または式を復元する事にしました。
アンダーラインについては、これがハイパーリンクのものか、意図的に引いたものか、または消してある場合もあるので、マクロを実行する時点のまま変更していません。

マクロ内部でエラー処理を行っていますが、これは結合セルがあると消去が普通にできないからです。
実際使ってみて、マクロをショートカットキーに登録しておけば便利かもしれません。

列全体、全シートを処理すると時間がかかります。ご注意を。(EscまたはCtrl+Breakで止まります)


ここから

Sub del_HyperLink()
  Dim rg As Range 'セル
  Dim rgVal 'マクロ操作前のセルの値
  Dim rgULine 'マクロ操作前のアンダーラインの招待

  On Error GoTo ErrorHandler 'エラー対応

  For Each rg In Selection
    rgULine = rg.Font.Underline 'アンダーライン
    'セルの内容が値か、または式か
    If Not rg.HasFormula Then
      rgVal = rg.Text
    Else
      rgVal = rg.Formula
    End If

    rg.ClearContents '消去
    rg.Font.Underline = rgULine 'アンダーラインを戻す
    rg = rgVal '値または式を戻す
  Next
  Exit Sub

ErrorHandler:
  '結合セルを操作しに行った時の対応
  If Err.Number = 1004 Then
    Resume Next
  End If
End Sub

回答がありませんね。

ハイパーリンクを設定したセルに対し、ハイパーリンク→ハイパーリンクの削除を行うと『セルの書式が解除されるのをどうにかしたい』ということで考えてみました。
ただ、『必要なところと、必要ないところ(単に記号的な使い方をしています)と分けているため』については、意味を理解できていません。見当違いの回答かもしれませんが、その場合はご容赦を。

通常方法では思いつきませんので、ハイパーリンクのみを解除するマクロを書いてみました。(Excel2000)

マクロでハイパーリ...続きを読む

QEXCEL VBA で現在開いているブックのファイル名を取得する方法

EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。
作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。
このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。
常にファイル名を取得出来るVBAをどなたか、教えて下さい。

Aベストアンサー

>現在開いているブックのファイル名
 ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は
ThisWorkbook.Name
で、現在 "アクティブにして" 操作対象になっているブックの名前は
ActiveWorkbook.Name
ですね。

 しかし、
>VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり
というような文脈からすると、
ThisWorkbook.Name
の方ですかね。

QExel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数ではなく、マクロで処理を希望します。

自分では、部品表の商品番号をコピーして、コード一覧表で検索し、検索結果の右隣のセル(B列のコード)の値を部品表のC列に貼り付ければよいかと思い、書いてみたんですが…

Sub 別ブックから貼り付ける()
  Dim 検索する As Long
Windows("部品表.xls").Activate
検索する = cells(i,2).Value
Windows("コード一覧表.xls").Activate
ActiveWindow.SmallScroll Down:=-3
Selection.AutoFilter Field:=3, Criteria1:="=検索する", Operator:= xlAnd

と、してみたものの、検索しても、その検索結果の隣のセルのコードをどうやって取得すればいいのかが、わかりませんでした。

基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。

どうぞよろしくお願いします。

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数...続きを読む

Aベストアンサー

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks.Open("C:\★★\コード一覧表.xls") '★要変更★
 I = 2
 Do While Range("A" & I).Value <> ""
  ThisWorkbook.Worksheets("Sheet1").Range("C" & I).Value = Application.VLookup(ThisWorkbook.Worksheets("Sheet1").Range("B" & I).Value, xlBook.Worksheets("Sheet1").Range("A2:B65535"), 2, 0)
  I = I + 1
 Loop
 xlBook.Close
 Application.ScreenUpdating = True
 MsgBox ("完了")
End Sub

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks....続きを読む

QWORD VBAでハイパーリンクの文字列色変更

VBAの初心者です。教えてください。
色々なWEBサイトより情報を集めてWORD文書を作成しています。フォント名、サイズ、色がバラバラで、それを統一するVBAは以下のように出来たのですが、ハイパーリンクされている文字の色も黒になっています。ハイパーリンクされている文字色だけは本来の青色で表示したいのですが、どのようにしたらいいのか分かりません。よろしくお願いします。 (WORD2007 Windows7)

Sub フォント変換()
'
'

With ActiveDocument.Content.Find
.Text = MatchiWildcards
.Format = True
.Font.Size = 11
With .Replacement
.Font.Name = "MS Pゴシック"
.Font.Size = 10.5
.Font.Color = wdColorBlack
.Font.Bold = False
End With
.Execute Replace:=wdReplaceAll
End With

With ActiveDocument.Content.Find
.Text = MatchiWildcards
.Format = True
.Font.Size = 12
With .Replacement
.Font.Name = "MS Pゴシック"
.Font.Size = 10.5
.Font.Color = wdColorBlack
.Font.Bold = False
End With
.Execute Replace:=wdReplaceAll
End With

End Sub

VBAの初心者です。教えてください。
色々なWEBサイトより情報を集めてWORD文書を作成しています。フォント名、サイズ、色がバラバラで、それを統一するVBAは以下のように出来たのですが、ハイパーリンクされている文字の色も黒になっています。ハイパーリンクされている文字色だけは本来の青色で表示したいのですが、どのようにしたらいいのか分かりません。よろしくお願いします。 (WORD2007 Windows7)

Sub フォント変換()
'
'

With ActiveDocument.Content.Find
.Text = MatchiWildcards
.For...続きを読む

Aベストアンサー

こんなカンジ

Sub macro1()
 Dim h As Hyperlink

’全文のフォントを設定する
 With ActiveDocument.Range(0, ActiveDocument.Range.End).Font
  .Name = "MS Pゴシック"
  .Size = 10.5
  .Bold = False
  .Color = wdColorBlack
 End With

’ハイパーリンクスタイルを再設定する
 For Each h In ActiveDocument.Hyperlinks
  h.Range.Style = wdStyleHyperlink
 Next
End Sub

QエクセルのIF関数で、文字が入力されていたならば~

エクセルのIF関数で文字が入力されていたならば~、という論理式を組み立てたいと思っています。

=IF(A1="『どんな文字でも』","",+B1-C1)

A1セルに『どんな文字でも』入っていたならば、空白に。
文字が入っていなければB1セルからC1セルを引く、という状態です。

この『どんな文字でも』の部分に何を入れればいいのか教えてください。

またIF関数以外でも同様のことができれば構いません。

宜しくお願いします。

Aベストアンサー

=IF(ISTEXT(A1),"",B1-C1)

でどうでしょうか?

QEXCELファイルのカレントフォルダを取得するには?

EXCELファイルのカレントフォルダを取得するには?

C:\経理\予算.xls

D:\2005年度\予算.xls

EXCEL97ファイルがあります。

VBAで
  カレントフォルダ名
(C:\経理\,D:\2005年度\)
を取得する事は可能でしょうか?

CURDIRでは上手い方法が見つかりませんでした。

Aベストアンサー

こんばんは。
Excel97 でも、同じですね。以下で試してみてください。

Sub test()
'このブックのパス
a = ThisWorkbook.Path
'アクティブブックのパス
b = ActiveWorkbook.Path
'Excelで設定されたデフォルトパス
c = Application.DefaultFilePath
'カレントディレクトリ
d = CurDir
MsgBox "このブックのパス   : " & a & Chr(13) & _
   "アクティブブックのパス: " & b & Chr(13) & _
   "デフォルトパス    : " & c & Chr(13) & _
   "カレントディレクトリ : " & d & Chr(13)
End Sub

QEXCEL VBAで全選択範囲の解除

EXCEL VBAで
Cells.Select
と書くと、全セルが選択状態になりますが、
これを解除するには、どう書けばよいのでしょうか?

Aベストアンサー

その1
A1 など、適当なセルを選択する。
(回答#1と同じ)

その2
全選択する前の選択範囲に戻る。

全選択前に
変数 = Selection.Address で記憶

全選択後
Range(変数).Select で元の選択範囲を選択

Qセルを右クリックしたときにハイパーリンクが表示されない

エクセル2003を使っていますが、任意のセルを右クリックしたときに「ハイパーリンク」のメニュー?が表示されません。(他の人のパソコンでは表示される)
「ハイパーリンク」のメニューを表示させるような設定があるのでしょうか?お教えください。

Aベストアンサー

自分も同じ問題でした。

「改ページプレビュー」で表示している事が原因です。
表示を「標準」にするとハイパーリンク表示がでます。

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列> <B列> <C列>
7/1 りんご 100円
7/2 ぶどう 200円
7/2 すいか 300円
7/3 みかん 100円

このような表があって、100円を含む行をそのままの形で、
別のセル(同じシート内)に抜き出したいのですが。

7/1 りんご 100円
7/3 みかん 100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は500行までとしていますが、必要に応じて変更して下さい

Qエクセル 0や空白のセルをグラフに反映させない方法

以下の点でどなたかお教えください。

H18.1~H20.12までの毎月の売上高を表に記載し、その表を元にグラフを作成しています。グラフに反映させる表の範囲はH18.1~H20.12の全てです。
そのためまだ経過していない期間のセルが空白になり、そこがグラフに反映され見づらくなります。
データを入力する都度グラフの範囲を変更すればいいのですが、うまく算式や設定等で空白や0円となっているセルをグラフに反映させない方法はありますか?

お手数ですが、よろしくお願いいたします。

Aベストアンサー

売上高のセルは数式で求められているのですよね?
それなら
=IF(現在の数式=0,NA(),現在の数式)
としてみてください。
つまり、0の場合はN/Aエラーにしてしまうんです。N/Aエラーはグラフに反映されません。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報