□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 親トピックをトピックトップへ ]
このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->　 図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決！！ありがとうございました！ 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ～ん。誰か～！ Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内)　

このトピック参照回数 :
Re[4]: アクティブセルの参照の仕方について

    [195180] Re[4]: アクティブセルの参照の仕方について-

    ■解決！！ありがとうございました！ / 記事引用/メール受信=OFF■

    □投稿者/ はる -(2022/09/01(09:43))
    □U R L/

      マナさんお返事ありがとうございます。解決出来ました！！
      ちなみに曜日は文字列で”日”と入力してあります。
      昨日は直ぐにお返事も出来ずに今朝となりすみませんでした。
      本当にありがとうございました。



    [195179] Re[3]: アクティブセルの参照の仕方について-

    ■記事引用/メール受信=OFF■

    □投稿者/ マナ -(2022/09/01(09:23))
    □U R L/

      例えば、H1には、文字列で"日"と入力されているのですか。
      それとも、日付を、表示形式で、曜日表示にしているのですか。

      左辺は、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のコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [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)




    [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のコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



このトピック内容の全ページ数 / [0]
- Child Forum -
Edit:ゆう-Ｇ