セルの中が「30」以上になったら、書き込みができないようにしたい

概要

Excel VBAを使って、棚卸をしています。「30g以上になったら、報告する」というルールでしたが、守られておらず、困ったので、

いっそのこと「30gになってたら、記入させない」ということにしました。

Excelの構成

A列に品名
B列に数
C列にg
E1セルにgの合計

E1のとなりに「”棚卸”ボタン」という感じです。

コード

では、コードです。sheet1に「棚卸」というボタンを作り、このコードをマクロ登録してください。

このボタンを押すと、A列の最終行に「棚卸」と「今日の日付」が入り、E1セルが「30」を超えていると、メッセージが出てくる仕様です。

Sub 棚卸()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim checkValue As Double

    ' ワークシートの指定（必要に応じて変更してください）
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' E1セルの値を取得
    checkValue = ws.Range("E1").Value
    
    If checkValue > 30 Then
        MsgBox "30gを超えています。", vbExclamation
    Else
        ' A列の最終行を取得
        lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
        ' 最終行に棚卸済み＋日付を入力
        ws.Cells(lastRow, 1).Value = "棚卸済み " & Format(Date, "yyyy/mm/dd")
    End If
End Sub

以上です。

何かの参考になれば幸いです。

スクールの紹介

【アイデミー】AIを学んで一発逆転のキャリアチェンジ！

ここまで読んでいただき、ありがとうございました。

最後に宣伝をさせてください。

夢見るAIエンジニアへ、今こそ一歩を踏み出せ！

最近、AI技術やデータサイエンスに興味を持ち始めたあなた。将来、AIエンジニアやデータサイエンティストとして活躍したいと考えているかもしれません。また、AIを使って業務課題や研究課題を解決したい、あるいは教養としてAIの知識を深めたいと思っている方もいるでしょう。

しかし、学び始めるとなると「どこから手をつけて良いのか分からない」「専門的すぎて理解できない」といった悩みが生じることも。そんなあなたのために、この3ヶ月間集中してAIプログラミングを習得するオンラインコーチングサービスがオススメです！

なぜこのサービスが選ばれるのか？その理由はこちら

1. 初心者から上級者まで
   完全なプログラミング初心者から研究者まで、幅広い方々に優良なコンテンツが提供されます。
2. 徹底的な進捗管理
   受講者の進捗をしっかりとチェックし、つまずきやすいポイントでのフォローが万全です。
3. 専属メンターによる徹底サポート
   AIの学び方から、実際の適用まで、専属のメンターが手厚くサポートします。
4. 場所を選ばず学べるオンライン完結
   東京以外の地域からも、気軽に学び始めることができます。

信頼の実績多数！
・日本最大級のプログラミングスクール実績
・受講者総数700名以上
・SaaS型学習サービス会員65,000名以上
・企業導入実績120社以上
・グッドデザイン賞受賞
・著名な賞受賞歴や経団連加盟も実現

夢を叶えるための第一歩を、一緒に踏み出しませんか？今なら、あなたもその一員として学び始めることができます！