Ｐａｇｅ 776 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼罫線を引き、色も変更する kurenai 03/2/21(金) 11:42 ┗Re:罫線を引き、色も変更する ポンタ 03/2/21(金) 12:18 ┗Re:罫線を引き、色も変更する kurenai 03/2/21(金) 14:47 ─────────────────────────────────────── ■題名 ： 罫線を引き、色も変更する ■名前 ： kurenai ■日付 ： 03/2/21(金) 11:42 -------------------------------------------------------------------------
| こんにちは。 前にポンタさんさんから教えて頂いたソースを 使いまして罫線の作成と色の変更しました。 内容は、UserFormを作りCommandButton1とTextBox1を作成して TextBox1に罫線の範囲を入力して、そのボタンをクリックすると 赤の罫線が引かれます。 ところが、シートの保護を掛けるとエラーが 起きてしまいます。 多少違いますが、教えて頂いたものです Private Sub CommandButton1_Click() With Range(TextBox1.Text).Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = 3 End With End Sub 「BorderｸﾗｽのLinestyleﾌﾟﾛﾊﾟﾃｨを設定できません」 とでますが、シートを保護しても動くようにするには どうすればよいのですか？ 自分なりに努力はしたものの、解決しませんので、皆さんの お力を借りたく思います。お願いします |
| シートの保護を解除してから、罫線を設定し、 シートを保護しなおす、ぐらいしか思いつきません。 Private Sub CommandButton1_Click() 'シートの保護を解除して Me.Unprotect With Range(TextBox1.Text).Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = 3 End With 'シートを保護しなおす Me.Protect End Sub 詳しくはProtect、Unprotectのヘルプを見てください。 |
| ポンタ さん 出来ました！ありがとうございます |