Copyright (C) 2010 All Rights Reserved.
その中で、管理コード別日別入出庫一覧を下記のような形で表示できるようにしたいなと思っています｡
元データ（フォームから入力して、テーブルに入っています）日付/管理コード/商品名/入庫数/出庫数↓一覧表示時日付/管理コード/商品名/入庫数/出庫数/（在庫数）9/1 ○○○～9/30 ○○○日別で在庫数を表示したいのですが、1日目の在庫数 → 1日目の在庫数＋入庫－出庫＝2日目の在庫数・・・といった計算をさせる方法がわかりません｡
1日ごとのデータは入庫・出庫どちらかのみしかありません｡
たとえば1日は入庫、2日以降はすべて出庫のみといった形です｡
元のテーブルの形に問題があるのかもしれませんが・・・この形でも可能であればこのまま使いたいです｡
ちなみにVBAは未経験です｡
内容理解頂ける方ご教授お願いします｡
よろしくお願いします｡
ユーザーフォーム内のテキストボックスにあらかじめ表示させてある注文番号の数字がユーザーフォームを立ち上げる度に自動でカウントアップしていく方法はございますか?
最初の表示が101001次にユーザーフォームを立ち上げた時には101002以降101003,101004...といった感じです｡
あるシートにディレクトリのフォルダ一覧の詳細をVBAにて抽出した後、サイズが100KBを超えたフォルダについて、ひだりに’注意’と明記するためのソースコードはどうなるのでしょうか
アドバイスお願いします｡
'ウィンドウの移動関係Public Sub suped()With ActiveWindowDo Until .VisibleRange.Row = 666666.SmallScroll Down:=1DoEvents: Sleep II = Range("DW3")LoopEnd WithEnd SubPublic Sub 十秒ごとにDW3セルを引き算()' A1セルに１を引き算Range("DW3") = Range("DW3") - 3 '数値上で判断する場合は If Not Range("DW3").Value >= 6 Then Exit Sub ' 10秒後に再びこのプローシージャを実行するよう予約Application.OnTime TimeValue(Now) + TimeValue("00:00:02"), "十秒ごとにDW3セルを引き算" End Sub Public Sub 十秒ごとにDW12に足算() ' DW12に１を足算Range("DW12") = Range("DW12") + Range("DW19") If Range("DW12").Value > 20 Then Range("DW19") = 3ElseIf Range("DW12").Value > 200 Then Range("DW19") = 4ElseIf Range("DW12").Value > 300 Then Range("DW19") = 5ElseIf Range("DW12").Value > 400 Then Range("DW19") = 6ElseIf Range("DW12").Value > 500 Then Range("DW19") = 7ElseIf Range("DW12").Value > 600 Then Range("DW19") = 8End If '数値上で判断する場合は If Not Range("DW12").Value <= 666660 Then Exit Sub ' 10秒後に再びこのプローシージャを実行するよう予約Application.OnTime TimeValue(Now) + TimeValue("00:00:01"), "十秒ごとにDW12に足算" End SubPublic Sub prcGetAsyncKeyStateSample() Dim I As Long Dim hidari As Range Dim migi As Range Dim sita As Range Dim long1 As Range Dim hanbun As Range Dim yonbunnoiti As Range Dim tisai As Range Dim lngPtn As Long Dim lngX As Long Dim lngS As Long'左を向いてる Set hidari = Range(Cells(65481, 1), Cells(65495, 16))'右を見てる Set migi = Range(Cells(65481, 17), Cells(65495, 32))'下を見てる Set sita = Range(Cells(65481, 33), Cells(65495, 48)) '長いブロック Set long1 = Range(Cells(65502, 1), Cells(65507, 33)) '半分のブロック Set hanbun = Range(Cells(65511, 1), Cells(65516, 18)) '4/1のブロック Set yonbunnoiti = Range(Cells(65521, 1), Cells(65526, 13))'小さいブロック Set tisai = Range(Cells(65529, 1), Cells(65534, 8))写真は続きです｡
独学でＶＢＡのプログラミングができるようになりたいのですが、業務でエクセルを単純に使うだけのレベルでも使いこなせる様になるのでしょうか?
超初心者でも使いこなせるようになれる書籍がありましたら教えて下さい｡
オートフィルタのような作業をVBAでやりたいのですが教えてください｡
私はVBAはあまり詳しくなくぜひご教示ください｡
シート１のＡ列セルにあるデータ(毎日、内容も数も変わります)を、シート２のＡ列にあるデータ(毎日、内容も数も変わります)の中から検索して、シート３にシート２の検索結果のＡ列とＢ列を貼りつけたいのですが｡
こんな感じの表と作業です｡
シート１Ａ列(商品名)イチゴメロンスイカマンゴー(↓以下データの内容は日々変動)シート２Ａ列(商品名)___Ｂ列(コードデータ)バナナ____________あいうえおイチゴ____________かきくけこバナナ____________さしすせそみかん___________たちつてとスイカ____________なにぬねのイチゴ____________はひふへほスイカ____________まみむめもメロン____________やいゆえよみかん___________らりるれろマンゴー_________わいうえをメロン____________んんんんん(↓以下データの内容は日々変動)シート３Ａ列(商品名)___B列(コードデータ)イチゴ____________かきくけこイチゴ____________はひふへほメロン____________やいゆえよメロン____________んんんんんスイカ____________なにぬねのスイカ____________まみむめもマンゴー_________わいうえをシート１の商品名を、シート２のＡ列から検索して、同じ行にあるＢ列のデータを抽出したいのです｡
シート３に検索で当たった商品名をＡ列に、コードデータをＢ列に自動入力させたいです｡
データの内容や数が毎日変わるので、どうしたら良いのか分かりません｡
どうか教えてください｡
よろしくお願いします｡
データー転記しますか?
”とメッセージが開きOKボタンを押すと東京花子さんの住所や電話などのデーターがその行に移行する方法をお聞かせ下さい｡
データの重複防止をしたいのですが入力規則ではコピーした値には対応できないと聞いたのですが、VBAでA1からA10とB1からB10とで重複防止をしたいのですが、A1とB1双方でチェックをしたい時…例えばA1に山田さんB1に山田商店とデータがあり、A2に佐藤さんB2に佐藤商店、A3に山田さんB3に山田商店と入力すればエラーメッセージを出して入力できないようにするにはどうしたらいいですか｡
初心者ですがよろしくお願いします｡
セルａ１に最小値、ａ２に最大値がセットされており、セルｂ１からｂ１０の範囲にに６～１０分割した数値を記入する｡
但し条件があり、グラフのスケール値として使いたいので、数値は自動的に見やすくなるように１０のべき乗になるように丸めた数値にして下さい｡
例えば最小値－１００～最大値１２３，４５６の場合は －２，０００、 ０、２，０００、４，０００、６，０００、８，０００、１０，０００、１２，０００、１４，０００というふうになるように （これは実際に－１００～１２３，４５６の間の数値をＥＸＣＥＬで入力してグラフ化すると 下記のように自動で最小値、最大値、目盛間隔が設定されます） 【最小値】－２００００ 【最大値】１４００００ 【目盛間隔】２００００ このロジックと同じような感じにしたいと思います｡
以上、宜しくお願い致します｡
PARです｡
VBAなるものは違法らしいので使いたくありません｡
お願いします｡
Copyright (C) 2010 All Rights Reserved.