DrunkBacchus

カレンダー枠作成

2007-02-18T00:10:59+09:00

'カレンダー枠の描画 Sub DrawCalendarFrame() Dim DateCol As Long Dim EndColumn As Long Dim ColumnWeekDay As Integer Dim ColumnMonth As Integer Dim ColumnDate As Date Dim RestDaysM As Integer '月の残り Dim RestDaysW As Integer '週の残り Dim ColumnDays As Integer '列の日数 'ラベル行の設定 Dim WeekRow As Long Dim MonthRow As Long Dim DateRow As Long Dim TopTitleRow As Long Dim ButtomTitleRow As Long 'セルに記入するラベル Dim MonthNo As Integer '結合するスタート列 Dim MonthCol As Long Dim WeekCol As Long '設定値の取得 StartDate = Range("C2").Value '開始日 EndDate = Range("C3").Value '終了日 StartColumn = Range("C4").Value '開始列 DayWidth = Range("C6").Value '日幅 StartDay = Range("C5").Value '開始曜日 ShipStartDate = Range("C8").Value '出荷開始日 WeekRow = 10 MonthRow = 11 DateRow = 12 TopTitleRow = Application.WorksheetFuncti

月ラベルと週ラベルのセルを結合する

2007-02-16T15:18:46+09:00

月ラベル、週ラベルセルの結合 MonthNo WeekNo MonthCol WeekCol 初期値設定 MonthNo=Month(StartDate) WeekNo= [[日付と週番号の関係]]

日付と週番号の関係

2007-02-16T15:13:39+09:00

[[Excel]]関数の場合　週番号=INT((日付-出荷開始日)/7)+1 　日付=出荷開始日+(週番号-1)*7

収穫記録に対応する播種記録を検索する

2007-02-18T00:17:56+09:00

播種記録を検索する関数 &html(

)
 Function FindSowData(StartDate As Date, _
                      Enddate As Date, _
                      Optional House As Variant = "", _
                      Optional Product As String = "", _
                      Optional Seed As String = "") As Variant
    '播種記録を検索する関数
    '引数
    '   検索開始期間
    '   検索終了期間
    '   ハウス          Option
    '   品目            Option
    '   品種            Option
    '
    '戻り値
    '   播種番号を配列で返す
    '   対応データがない場合Nothing
  
    Dim SrcBook As Workbook
    Dim SrcSheet As Worksheet
    Dim SrcData As Range
    Dim TempSheet As Worksheet
    Dim CriteriaA() As Variant
    Dim CriteriaR As Range
    Dim DistRange As Range
    Dim ResultArray As Variant
    
    
 '    Application.ScreenUpdating = False
    On Error GoTo err1
    '元データ範囲
    Set SrcData = Workbooks("播種記録2006.xls").Worksheets("播種記録").Range("$A$6:$N$239")
    '抽出用シートを用意
 '    Set TempSheet = Worksheets.Add
    Set TempSheet = Wo

Excel

2007-01-31T14:47:58+09:00

*Excel 覚書 **栽培記録 -[[収穫記録に対応する播種記録を検索する]]

分布マップを作成する

2007-01-31T11:12:10+09:00

物件の所在地データを作成する

前準備
アドレスマッチングサービスの利用

=IF(IF(C1615=C1614,D1614+1,1)>C1615,1,IF(C1615=C1614,D1614+1,1))

リンク

2007-01-27T23:52:49+09:00

農業

2006-09-18T04:00:38+09:00

更新履歴

2007-01-30T00:29:40+09:00

メニュー

2007-02-17T23:50:26+09:00