仕事でエクセルでリスト入力をしています。
メールアドレスを入力すると、自動でリンクが貼られちゃいます。
フォントの大きさも変わっちゃうし、そのセル内の情報を修正しようとして
矢印キーじゃなくうっかりマウスでそのセルをクリックしちゃったりすると
いちいちメーラーが立ち上がって邪魔なので、一括でそのファイル(タブでもいいんですが)
内にあるメールアドレスからのリンクを削除したいんです。

上司に聞いても、忘れちゃったらしく、ヘルプやマニュアル本を見ても探せなかったので
質問しています。

あさってまでの締め切りなのですぐに回答頂きたいです。
よろしくお願いします。ぺこ <(_ _)>

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

A 回答 (3件)

「1を入力して形式を選択して貼り付け」の方法を、


「1」ではなく文字("a"でも"あ"でもなんでもOK)で行うと、
(貼り付け方法が演算なら乗算でなくてもOK)
空白セルに余計な文字を入れることなく
ハイパーリンクだけを解除することができます。

作業が終わってらっしゃらなければよいのですが。
    • good
    • 0
この回答へのお礼

えぇっ!?
そうなんですかぁ?
それは知らなかった・・・

試してみました。
ホント、空白セルは空白のまんまです♪
ありがとうございます!
すごい助かりました☆

お礼日時:2002/04/11 21:44

Excel2002の場合は、


メニューバーの[ツール]→[オートコレクトのオプション]でダイアログボックスを表示させます。
[入力オートフォーマット]のタブの中の[インターネットとネットワークのアドレスをハイパーリンクに変更する]というところのチェックをはずせば初期状態ではリンクが貼られません。
入力済みのリンクを削除する方法は下記のページをご覧下さい。

参考URL:http://www.okweb.ne.jp/kotaeru.php3?q=249597
    • good
    • 0
この回答へのお礼

ありがとうございます。
もうすぐ会社の私のPCもWinXPにしてくれるそうです。
その時にでも活用したいと思います。

お礼日時:2002/04/11 18:22

Excel2000の場合は、最初からオフにすることはできません。


右クリックして、ハイパーリンクの削除を選んでください。
いちいちやるしかありませんが、
ヘルプから、少し抜粋
空白セルに「1」を入力し、そのセルをマウスの右ボタンでクリックします。
ショートカット メニューの [コピー] をクリックします。
Ctrl キーを押しながら、無効にする各ハイパーリンクをクリックします。

ハイパーリンクが設定されたセルで、リンク先に移動するのではなくセルを選択するには、セルをクリックしてマウスのボタンを押したままにし、カーソルが十字形 なったら手を離します。
[編集] メニューの [形式を選択して貼り付け] をクリックします。
[演算] の [乗算] をクリックし、[OK] をクリックします。

Excel2002の場合は、最初から無効にできたとおもうんですが、忘れました。
    • good
    • 0
この回答へのお礼

急いでいたのでエクセルのバージョンを書き忘れていました。
申し訳ございません。
Excel2000です。

一括でやる方法がないんですか・・・
「1」を入力して形式を選択して貼り付けの方法は知っていましたが、それだと
何も入力していないセルにも数字が入ってしまいますよね・・・
そしてまたそれを消す、と。
時間がなかったので一括で一気にやってしまいたかったんですが無理なんですね。(涙)
どうやらこの調子だと、今夜は徹夜作業になりそうな感じです。(>_<;;

ご丁寧&お早い回答、ありがとうございました。

お礼日時:2002/04/11 18:28

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

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

Q「DNAのクロスリンク」について教えてください

「DNAのクロスリンク」のクロスリンクとは、架橋形成のことでしょうか?

Aベストアンサー

http://www.dojindo.co.jp/letterj/097/reviews_01_main.html
http://www.kyushu.meti.go.jp/web/15_6_30_gi_kikaku/H14FYseika_list/14C8012.pdf
等によるとおっしゃるとおり架橋したものが出来るようです。
なお。ここを閉じて、生物のカテで聞くともっと良いお答えが早くかえってくると思います。

Qエクセル あるセルに文字を入力した後ボタン一つでそのセルを入力の状態ではなく只その同じセルを選択している状態にしたい

選択したセルに文字を入力するときF2キーで入力できるようになると思うのですが、その逆をやりたいのですが、ボタンひとつできる方法はありますか。入力して縦線が点滅しているのを、ただセルを選択した状態にしたいのです。
今はいったんenterかtabを押してから、矢印キーで再度そのセルに戻っているのですが、ボタンひとつでできる方法があると面倒でなくなると思うので。
具体的には入力した直後に、そのセルをコピーして別のセルに貼り付けたいのです。
ちょっと分かりづらくて申し訳ありませんが教えてください。

Aベストアンサー

CtrlキーとEnterを同時押しすればセル移動しませんよ。

Qクロスケーブルとアップリンクポート

アップリンクポートとパソコンを
クロスケーブルで結ぶと
普通にハブに接続しているのと変わらないのですか?
クロスをクロスにするから大丈夫だとは思うのですが。

どうでしょうか?

Aベストアンサー

その通りです。

クロス、ストレートの選択はいつも悩みの種ですよね。

ちなみに、最近出始めた1000BASE-TのSW-Hubでは、
クロス、ストレートを自動的に認識してくれるので、
このような悩みは不要のようです。

Q任意のセルを検索窓にして文字(ひらがな)を入力すると既記入のセルを探しそのセルの横のセルに飛びたい

当方、エクセル2013 です。ほとんど初心者です。
表題のような事って出来るでしょうか?いちいちマウスを使うこと無く出来れば良いなと思っております。
画像で言いますとA1に「かけふ」といれるとD5に飛び、ここに数字を入れると又、勝手にカーソルがA1に戻る。って出来ないでしょうか?教えて下さい。

Aベストアンサー

こんばんは!
VBAでの操作になりますが、一例です。

画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
A1セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から//
Dim c As Range
If Intersect(Target, Union(Range("A1"), Range("D:D"))) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
If .Column = 1 Then
If .Value <> "" Then
Set c = Range("C:C").Find(what:=.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
c.Offset(, 1).Select
Else
MsgBox "Not Found"
.Select
End If
End If
Else
If IsNumeric(.Value) Then
Range("A1").Select
Selection.ClearContents
Else
MsgBox "数値を入力してください"
.Select
End If
End If
End With
End Sub 'この行まで//

こんな感じではどうでしょうか?m(_ _)m

こんばんは!
VBAでの操作になりますが、一例です。

画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
A1セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から//
Dim c As Range
If Intersect(Target, Union(Range("A1"), Range("D:D"))) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
...続きを読む

Qクロスケーブルによる直リンクについて

現在、二台のPCを使用していますが、データのやり取りが今まではCDでしか出来ませんでした
HPなどを調べて、なんとかクロスケーブルで二台を直リンクできることまでわかり、データ転送をしています

が、よく、トラブルが起きるのです。
メインがダイナブックのWinXP、ファイル置き場がソーテックのWin98、
いつもはADSLの方に繋いでいるのでLAN接続していないので問題ないですが、いろんなデータが溜まってくるとソーテックのほうにデータを送るようにしているので、
そのときに問題になります。

たまにクロスケーブルで繋ごうとすると、なかなか認識しないんです。
ワークグループを同じ名前にし、IPを下一桁だけずらした数値にし、
サブネットマスクを255.255.255.0にします。

これだけで、たまにちゃんと認識してデータ転送できるんですが、
たまに認識せずに、再起動してみたり設定を解除してもう一度やりなおしたりして、何時間かかかってやっと認識させ、データを移しています。

色々実験していて変なことがわかりました。 マイネットワークにソーテック側のフォルダが表示されていない場合でも、IPをまったく同じ数値に設定すると「競合しています」って出るんです。
つまり、一応ちゃんと繋がってると思うんですが、、、、

今日、知人のHDDにデータを送ろうとして、同様にクロスケーブルで繋ぎ、
同じように設定したんですが、その時はいくら色々設定しなおしてもお互いがお互いを認識することが出来ませんでした。
しかし、そのときも試しに同じIPを設定してみたら 競合しています と出ました
知人の本体はIBMのw2kです。

どうやったら自家製直リンクLAN,すんなり認識してくれるんでしょうか?

現在、二台のPCを使用していますが、データのやり取りが今まではCDでしか出来ませんでした
HPなどを調べて、なんとかクロスケーブルで二台を直リンクできることまでわかり、データ転送をしています

が、よく、トラブルが起きるのです。
メインがダイナブックのWinXP、ファイル置き場がソーテックのWin98、
いつもはADSLの方に繋いでいるのでLAN接続していないので問題ないですが、いろんなデータが溜まってくるとソーテックのほうにデータを送るようにしているので、
そのときに問題になりま...続きを読む

Aベストアンサー

>たまにクロスケーブルで繋ごうとすると、なかなか認識しないんです。
基本的な事をお伺いします。
・これは、ネットワークコンピュータに相手が現れないという事ですか?
・通信は出来ているのでしょうか?
(コマンドプロンプトで「ping 相手のIPアドレス」とやってみましたか)
・検索で相手のコンピュータを検索しても、検索できませんか?
・共有フォルダを例えばX:ドライブにマッピング出来ませんか?
(ネットワークドライブの割当てで、共有名を \\相手のコンピュータ名\共有名
 として、X:ドライブなどに割当てできませんか)

IPアドレスの競合は検出されるという事なので、電気的には繋がって
いると思われます。エクスプローラなどで直接見えないだけであれば、
マイクロソフトネットワークの扱いにくさが問題なのかもしれませんね。

繋がった時に、共有フォルダのショートカットを作っておき、再接続の時は
ショートカットを開く というやり方もありますがどうでしょうか。

また、ファイルを転送するだけであれば、ソーテック側にFTPサーバソフト
を入れてGUIのFTPクライアント(FFFTPなど)で転送する手もあります。

そうじゃなくて、根本的な問題(pingが応答しない)なのでしょうか?

>たまにクロスケーブルで繋ごうとすると、なかなか認識しないんです。
基本的な事をお伺いします。
・これは、ネットワークコンピュータに相手が現れないという事ですか?
・通信は出来ているのでしょうか?
(コマンドプロンプトで「ping 相手のIPアドレス」とやってみましたか)
・検索で相手のコンピュータを検索しても、検索できませんか?
・共有フォルダを例えばX:ドライブにマッピング出来ませんか?
(ネットワークドライブの割当てで、共有名を \\相手のコンピュータ名\共有名
 として、X:ド...続きを読む

Qエクセルのセルでのカナ入力確定後の矢印キー(←等)での同一セル内での文字位置移動

WinXP+エクセル2002です。

タイトルどおり、
セル内でカナを入力しエンターキーで確定した後、
ポインタがそのセル内にある状態で矢印キーを使ってポインタの位置を前にずらして編集を続けたいのですが、
確定後だと←キー等を使うと左のセルに移動してしまいます。
ツールバー下のfx(関数の挿入)エリアであれば自由に移動できますが、
セルのダブルクリックorF2キーからの編集開始で同様な作業はできないのでしょうか?

Aベストアンサー

画面右下のステータスバーを見ると、
「入力」や「編集」と表示されます。
入力の状態では、←を押すと左のセルに移ってしまいますが、
編集の状態では文字間カーソルが移動します。

文字を入力する際常にF2を押す習慣付けされてはいかがでしょう。

Qリンクにふれると文字表示!(クロスブラウザで)

リンクにふれると文字表示をさせたいのですが、NNでは
指定した色(黄色)と位置(中心)に表示できないので困っています。
タグは以下の通りです。
<HTML>
<HEAD><META HTTP-EQUIV="Content-Type"CONTENT="text/html;CHARSET=x-sjis">
<style type="text/css"><!--
body,tr,td {font-weight:bold; color:yellow}---></style>
<TITLE></TITLE>
<SCRIPT Language="JavaScript">
<!--
isIE4 = (navigator.appVersion.charAt(0)>=4 && (navigator.appVersion).indexOf("MSIE") != -1)
isNN4 = (navigator.appVersion.charAt(0)>=4 && (navigator.appName).indexOf("Netscape")!=-1);

function link_info(m) {
if(m==null) m = "";

if(isIE4) {
el = document.all("LINKMSG1");
el.innerHTML = m;
}
else if(isNN4) {
lay = document.layers["PARENT_LINKMSG"].document.layers["LINKMSG1"];
lay.document.open();
lay.document.write("<font style='font-size:12pt'>"+m+"</font>");
lay.document.close();
}
}
//-->
</SCRIPT>
</HEAD>

<BODY bgcolor="red" BORDER="0" topmargin="7" link="white" alink="yellow" vlink="yellow">
<center>
<ilayer name="PARENT_LINKMSG" width="100%" height="16">
<layer name="LINKMSG1"></layer>
<span id="LINKMSG1"></span>
</ilayer>
</center>
<br>
<center><font style="font-size: 10pt">
<a href="top.html" target="main" onMouseover="link_info('■■TOP■■')" onMouseout="link_info()">
 TOP</a> |
<a href="rink.html" target="main" onMouseover="link_info('■■リンク集です。■■')" onMouseout="link_info()">
 リンク集</a>
</font>
</center>
</BODY>
</HTML>

リンクにふれると文字表示をさせたいのですが、NNでは
指定した色(黄色)と位置(中心)に表示できないので困っています。
タグは以下の通りです。
<HTML>
<HEAD><META HTTP-EQUIV="Content-Type"CONTENT="text/html;CHARSET=x-sjis">
<style type="text/css"><!--
body,tr,td {font-weight:bold; color:yellow}---></style>
<TITLE></TITLE>
<SCRIPT Language="JavaScript">
<!--
isIE4 = (navigator.appVersion.charAt(0)>=4 && (navigator.appVersion).indexOf("MSIE") != -1)
isNN4 = (navigato...続きを読む

Aベストアンサー

NNの4.75では以下の記述で上手く表示できましたが4.5ではどうでしょうか?

lay.document.write("<font style='font-size:12pt'>"+m+"</font>");

lay.document.write("<center><font style='color:yellow; font-size:12pt'>"+m+"</font></center>");
に変えただけです。

Qセルに最初からある文字列を表示させておいて、そのセルを選択したら、その文字列の後から3桁数字を入力できるようにしたい

タイトルが長くてすみませんm(_ _)m
エクセル(97)に関しての質問です。

例えば、セルの中に最初から「15-G」という文字列を
表示させておいて、(ダブルクリックして編集という
形じゃなくて)そのセルを選択しただけで、
その文字列の後から3桁の数字を入力できるように
したいのですがいい方法はないでしょうか?

他にやってみた方法で、ユーザー定義(私が考えた定義→「"15-G"@」)でセルに3桁の数字(例えば567)を入力しますと、「15-G567」というように表示させる事が出来たのですが、何も入力されてない時は当たり前ですが空白のままです。
出来れば、最初から「セルの中の始めに15-Gという文字列を」表示させておきたいのですが…

Aベストアンサー

diashun です。
諦めずに挑戦するお気持ち、敬意を払います。
さて、エラー箇所を特定するためにデバッグモードでVBAを動かしてみましょう。
1.「Sheet1」のVBE編集画面を開いてください。
「Private Sub CommandButton1_Click()」の行とプロジェクトツリーの境界で右クリックしてください。
これでその境界部分に茶色の●が表示され、「Private Sub CommandButton1_Click()」の行も茶色の帯がつきましたか?
これは「ブレークポイント」といい、プログラムの実行を任意に中断する場合に指定します。
2.Excelの「Sheet1」に戻り、「CommandButton1」をクリックします。(この時、コントロールツールボックスのデザインモードを終了しておいてください)
3.VBEの[Sheet1」のブレークポイントのところで黄色い帯が表示されてプログラムの実行が中断されていますか?
ここまで「OK」でしょうか?
4.次の行からプログラムの実行を継続させます。
「F8」キーを一回押してください。
黄色い帯が次行(Set_String1)へ移動しましたか?
さらに「F8」キーを押すと「Module1」の「Set_String1」プロシージャVBE画面へ遷移するはずですが、ここまで「OK」ですか?
5.「F8」キーを一回ずつ押して一行ずつ実行してください。
エラー箇所があれば何らかのエラーダイアログとメッセージが表示されるはずです。その時「終了する」と「デバッグする」のボタンも表示されるので「デバッグする」のボタンを押すと、エラー行の場所が黄色い帯で表示されますので、その行内容とエラー表示メッセージの文言をお知らせ下さい。

>「Module1」の所が紺色に反転しています・・・は関係ないと思います。

ただ念のため「ThisWorbook」「Sheet1」「Module1」のVBEが下記の通り間違いないか、再確認もしておいてください。
●「ThisWorbook」のコード
Option Explicit

Private Sub Workbook_Open()
Dim strDefAry() As String
Dim i As Integer
ReDim strDefAry(0 To 9) As String '仮に10種類の文字列(ランダムな文字)を登録します。

strDefAry(0) = "15-G"
strDefAry(1) = "11-A"
strDefAry(2) = "15-V"
strDefAry(3) = "10-H"
strDefAry(4) = "11-R"
strDefAry(5) = "13-Y"
strDefAry(6) = "19-X"
strDefAry(7) = "00-D"
strDefAry(8) = "01-W"
strDefAry(9) = "15-K"

For i = 0 To 9
Sheet1.ListBox1.AddItem strDefAry(i)
Next i

Sheet1.ListBox1.Visible = True
ThisWorkbook.Sheets(1).Activate

End Sub

●「Sheet1」のコード
Option Explicit

Private Sub CommandButton1_Click()
Set_String1
End Sub

●「Module1」のコード
Option Explicit

Public Sub Set_String1()
Dim strCell As String, lngRowNum As Long, strDefStr As String
Dim i As Integer

strCell = InputBox("入力する列を「A,B,C,・・・」と入力して下さい。", "列入力")
strDefStr = Sheets(1).ListBox1.Text
lngRowNum = ActiveCell.Row
Call Set_String2(strCell, strDefStr, lngRowNum)
End Sub

Public Sub Set_String2(strCell As String, strDefStr As String, lngRowNum As Long)
Dim i As Integer

Range(Cells(lngRowNum, strCell), Cells(lngRowNum, strCell)).Activate
Range(Cells(lngRowNum, strCell), Cells(lngRowNum, strCell)) = strDefStr
End Sub

あと、Excelの「Sheet1」に「CommandButton1」と「ListBox1」は貼り付けられていますね?
以上、またご連絡をお待ちします。
でも、お忙しいならいつでもいいですよ。
気長にお付き合いしますので、(^_^)

diashun です。
諦めずに挑戦するお気持ち、敬意を払います。
さて、エラー箇所を特定するためにデバッグモードでVBAを動かしてみましょう。
1.「Sheet1」のVBE編集画面を開いてください。
「Private Sub CommandButton1_Click()」の行とプロジェクトツリーの境界で右クリックしてください。
これでその境界部分に茶色の●が表示され、「Private Sub CommandButton1_Click()」の行も茶色の帯がつきましたか?
これは「ブレークポイント」といい、プログラムの実行を任意に中断する場合に指定します。
2....続きを読む

QUSBリンクケーブルとは

USBリンクケーブルとは、PCを直接つなぐケーブルなのでしょうか?
LANのクロスケーブルでPCをつなぐより何かメリットはあるのでしょうか?

Aベストアンサー

メリットと言えるほどでもないかもしれませんが、
IPアドレスの設定などが不要ということくらいでしょうか。
初心者の方でしたら、メリットになるかもしれません。

Qハイパーリンクのアドレスにほかのセルの文字列を挿入したい

EXCELのハイパーリンクを使ってネットワークにあるファイルを開くようにしたいと考えています。

とりあえずはHyperlink関数を使ってファイルを開くのは可能なのですが、一つ一つリンク先を設定するのは大変なのでほかのセルの文字列を挿入したいのです。

具体的には1列目のセルにPhoto001,Photo002,…と入力しておき、同じ名前のフォルダを用意してそれをハイパーリンクで開くようにできればやりやすいのですが。
フォルダ名をセルの文字列から取得できればオートコンプリートを使って入力が簡単になるのではないかなぁと予想しているのですが。

いい方法があったらお願いいたします。

Aベストアンサー

たとえば、A列にフォルダ名とした場合、
フォルダがマイピクチャの中にそれぞれあったとします。

B列には
=HYPERLINK("C:\Documents and Settings\Administrator\My Documents\My Pictures\"&A1,A1)

とすると、A列に記入されたフォルダ名のハイパーリンクがフォルダ名で作成されます。
C:\Documents and Settings\Administrator\My Documents\My Pictures\
の部分はフォルダのある環境に変更してください。


人気Q&Aランキング