エクセルで リンクが切れない状態で文字を入れたい

エクセルのセルにおいて　患者一覧表シートでのあるセル（個々の患者名）と　ブック内のあるシート（番号のついたそれぞれ個別情報部屋）のとリンクさせているんだが　マクロで　　その部屋に患者がいなくなった時「空き部屋」になるんだが　その時マクロボタンで　一覧表のそのセルに”空き部屋”と入力したいが　以下のようにすると　今まで設定されていた表紙からのリンクが切れてしまうんだが　どうすればいい。いままでの設定したリンクが切れない状態で　アクティブセルに”空き部屋”と入れたい。


' 空き部屋入り Macro
'
ActiveCell.FormulaR1C1 = "'空き部屋"
ActiveCell.Characters(2, 2).PhoneticCharacters = "ベヤ"

End Sub

No.1 回答者： kantansi 回答日時： 2023/09/20 13:16

Excelでセル間のリンクを維持しつつ、アクティブセルに"空き部屋"と入力したい場合、次の方法を試してみてください。

vba
Copy code
Sub 空き部屋入り()
' アクティブセルの値を"空き部屋"に変更
ActiveCell.Value = "空き部屋"
End Sub

このVBAコードは、アクティブセルの値を"空き部屋"に変更しますが、リンクは切れずにそのまま維持されます。特にFormulaR1C1プロパティを使用する必要はありません。

このコードをVBAエディタでマクロに追加し、ボタンに関連付けて実行すると、アクティブセルに"空き部屋"が入力され、リンクが切れないまま変更が行われるはずです。

この回答へのお礼

そうでした。指マークがすぐに出てこなかったので早とちり　すみませんでした。

お礼日時：2023/09/20 16:48