Path: ccsf.homeunix.org!ccsf.homeunix.org!news1.wakwak.com!nf1.xephion.ne.jp!onion.ish.org!onodera-news!newsfeed.media.kyoto-u.ac.jp!newsfeed.mesh.ad.jp!not-for-mail From: IshikawaShinzi Newsgroups: fj.comp.applications.excel Subject: Re: =?ISO-2022-JP?B?GyRCJTMlVCE8IXUlWiE8JTklSCQ3JD8lYSE8JWslIhsoQg==?= =?ISO-2022-JP?B?GyRCJUklbCU5JHIwbDNnJDckRiVqJXMlL0BfRGokRyQtJEokJCRHGyhC?= =?ISO-2022-JP?B?GyRCJDkkKxsoQj8=?= Date: Fri, 05 Sep 2003 07:09:18 +0900 Organization: BIGLOBE news user Lines: 33 Message-ID: References: NNTP-Posting-Host: fla1aac185.hkd.mesh.ad.jp Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-2022-JP X-Trace: bgsv5648.tk.mesh.ad.jp 1062713360 28291 61.193.109.185 (4 Sep 2003 22:09:20 GMT) X-Complaints-To: news@mesh.ad.jp NNTP-Posting-Date: Thu, 4 Sep 2003 22:09:20 +0000 (UTC) In-Reply-To: X-Newsreader: Datula version 1.52.01 for Windows Xref: ccsf.homeunix.org fj.comp.applications.excel:80 Naoaki Satoさんの >入力済みのものに対しては、F2を押してenterで自動設定されますね 石川と申します。 　F2が思い出せませんでした。それがわかればマクロでもでき ますね。 標準モジュールにコードを書き込んで、エクセルに戻って ツール−マクロ−マクロ　で実行すると動くと思います。 尚、ビジュアルベーシックエディターから実行してしまうと違 う動作をしてしまうので範囲が広いとフリーズしてしまいます。 Sub Test() Dim Han_i As Range, Seru As Range Set Han_i = Selection For Each Seru In Han_i Seru.Select SendKeys "{F2}" SendKeys "{ENTER}" Next Seru Han_i.Select End Sub 余談ですが、ハイパーリンクを一括削除するには範囲選択して おいてビジュアルベーシックエディターのイミディエイトウイ ンドウに下のコードを書き込みコードの末尾にカーソルを置い た状態でEnterです。 selection.hyperlinks.delete -- IshikawaShinzi mailto:haribote@hyper.cx