□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| アクティブセルの参照の仕方について | |
|---|---|
[195176] アクティブセルの参照の仕方について- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ はる -(2022/08/31(15:46)) □U R L/ 本日もご教授を宜しくお願い致します。 ① sheet1にはB1からAF1まで8月1日から31日まで曜日が入っています。そして、B3からAF12までは勤務者の勤務形態のマークを入力する様になっています。 ② UserForm1のListBox1には勤務表に入力する勤務形態のマーク（例えば〇は日勤、／は休み等）が表示出来る様にしてあります。 ③ご教授をお願いしたいのは、UserForm1のListBox1の勤務形態のマークをダブルクリックして選択した時に、アクティブセルの位置から上にある曜日が日曜日の場合はマークが入力出来ない様にしたいのですが上手く行きません。下記のUserForm1のif文のVBAがセルを上手く参照してくれないのですがどこを修正すると良いのでしょうか？（下記はマークを入力するVBAを省いております） Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If ActiveCell(ActiveCell.Row - ActiveCell.Row +1, 0) = "日" Then MsgBox "日曜日です。": GoTo jp End If jp: End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195177] Re[1]: アクティブセルの参照の仕方について- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/08/31(17:09)) □U R L/ >ctiveCell(ActiveCell.Row - ActiveCell.Row +1, 0) アクティブセルが３行目？ ActiveCell(-1, 1) それが保証できないなら Cells(1, ActiveCell.Column) | |
[195178] Re[2]: アクティブセルの参照の仕方について- ■記事引用/メール受信=OFF■ □投稿者/ はる -(2022/09/01(08:51)) □U R L/ マナさんおはようございます。 If ActiveCell(ActiveCell.Row - ActiveCell.Row +1, 0) = "日" Thenの 箇所が上手く行かない事で思った事が解決出来ない状況です。 補足ですが下記が処理のイメージです。 A B C D E F G H ・・・・ AF 1 曜日 月 火 水 木 金 土 日 ・・・・ 水 2 日付 1 2 3 4 5 6 7 ・・・・ 31 3 氏名 4 ああ 5 いい 6 うう 7 ええ ↑ UserForm1のListBox1の リストボックスから日勤の マーク（〇を）ダブルクリック してもアクティブセルの上に ある曜日を参照して日曜日なら どの職員でも入力出来ない様に したいと思っています。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195179] Re[3]: アクティブセルの参照の仕方について- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/09/01(09:23)) □U R L/ 例えば、H1には、文字列で"日"と入力されているのですか。 それとも、日付を、表示形式で、曜日表示にしているのですか。 左辺は、Cells(1, ActiveCell.Column) がよいです。 | |
[195180] Re[4]: アクティブセルの参照の仕方について- ■  / 記事引用/メール受信=OFF■
□投稿者/ はる -(2022/09/01(09:43)) □U R L/ マナさんお返事ありがとうございます。解決出来ました！！ ちなみに曜日は文字列で”日”と入力してあります。 昨日は直ぐにお返事も出来ずに今朝となりすみませんでした。 本当にありがとうございました。 | |