販売管理ソフトを作る - 「見積一覧」 変数定義

フリー 販売管理 Excel ユーザフォーム

「見積一覧」 変数定義

■ frmList



00001 Option Explicit

00002 

00003 Private Const ROW_NUM As Integer = 12

00004 

00005 Public WithEvents txtDateMin As MSForms.TextBox

00006 Public WithEvents txtDateMax As MSForms.TextBox

00007 Public WithEvents txtBusyo As MSForms.TextBox

00008 Public WithEvents txtTanto As MSForms.TextBox

00009 Public WithEvents txtTokui As MSForms.TextBox

00010 

00011 Public lblBusyoNM As MSForms.Label

00012 Public lblTantoNM As MSForms.Label

00013 Public lblTokuiNM As MSForms.Label

00014 

00015 Public WithEvents cmdSearch As MSForms.CommandButton

00016 Public WithEvents cmdAppend As MSForms.CommandButton

00017 Public WithEvents cmdUpdate As MSForms.CommandButton

00018 Public WithEvents cmdCopy As MSForms.CommandButton

00019 Public WithEvents cmdDelete As MSForms.CommandButton

00020 Public WithEvents cmdExit As MSForms.CommandButton

00021 

00022 Public WithEvents vsbDetail As MSForms.ScrollBar

00023 

00024 '↓ 配列は、オブジェクトモジュールの パブリックメンバとして、使用できない

00025 'Public lblNo(ROW_NUM) As MSForms.Label

00026 'Public lblDenpyoNo(ROW_NUM) As MSForms.Label

00027 'Public lblDate(ROW_NUM) As MSForms.Label

00028 'Public lblBusho(ROW_NUM) As MSForms.Label

00029 'Public lblTanto(ROW_NUM) As MSForms.Label

00030 'Public lblTokui(ROW_NUM) As MSForms.Label

00031 

00032 'No

00033 Private aryLblNo(ROW_NUM) As MSForms.Label

00034 Public lblNo00 As MSForms.Label

00035 Public lblNo01 As MSForms.Label

00036 Public lblNo02 As MSForms.Label

00037 Public lblNo03 As MSForms.Label

00038 Public lblNo04 As MSForms.Label

00039 Public lblNo05 As MSForms.Label

00040 Public lblNo06 As MSForms.Label

00041 Public lblNo07 As MSForms.Label

00042 Public lblNo08 As MSForms.Label

00043 Public lblNo09 As MSForms.Label

00044 Public lblNo10 As MSForms.Label

00045 Public lblNo11 As MSForms.Label

00046 Public lblNo12 As MSForms.Label

00047 '伝票番号

00048 Private aryLblDenpyoNo(ROW_NUM) As MSForms.Label

00049 Public lblDenpyoNo00 As MSForms.Label

00050 Public lblDenpyoNo01 As MSForms.Label

00051 Public lblDenpyoNo02 As MSForms.Label

00052 Public lblDenpyoNo03 As MSForms.Label

00053 Public lblDenpyoNo04 As MSForms.Label

00054 Public lblDenpyoNo05 As MSForms.Label

00055 Public lblDenpyoNo06 As MSForms.Label

00056 Public lblDenpyoNo07 As MSForms.Label

00057 Public lblDenpyoNo08 As MSForms.Label

00058 Public lblDenpyoNo09 As MSForms.Label

00059 Public lblDenpyoNo10 As MSForms.Label

00060 Public lblDenpyoNo11 As MSForms.Label

00061 Public lblDenpyoNo12 As MSForms.Label

00062 '日付

00063 Private aryLblDate(ROW_NUM) As MSForms.Label

00064 Public lblDate00 As MSForms.Label

00065 Public lblDate01 As MSForms.Label

00066 Public lblDate02 As MSForms.Label

00067 Public lblDate03 As MSForms.Label

00068 Public lblDate04 As MSForms.Label

00069 Public lblDate05 As MSForms.Label

00070 Public lblDate06 As MSForms.Label

00071 Public lblDate07 As MSForms.Label

00072 Public lblDate08 As MSForms.Label

00073 Public lblDate09 As MSForms.Label

00074 Public lblDate10 As MSForms.Label

00075 Public lblDate11 As MSForms.Label

00076 Public lblDate12 As MSForms.Label

00077 '部署

00078 Private aryLblBusyo(ROW_NUM) As MSForms.Label

00079 Public lblBusyo00 As MSForms.Label

00080 Public lblBusyo01 As MSForms.Label

00081 Public lblBusyo02 As MSForms.Label

00082 Public lblBusyo03 As MSForms.Label

00083 Public lblBusyo04 As MSForms.Label

00084 Public lblBusyo05 As MSForms.Label

00085 Public lblBusyo06 As MSForms.Label

00086 Public lblBusyo07 As MSForms.Label

00087 Public lblBusyo08 As MSForms.Label

00088 Public lblBusyo09 As MSForms.Label

00089 Public lblBusyo10 As MSForms.Label

00090 Public lblBusyo11 As MSForms.Label

00091 Public lblBusyo12 As MSForms.Label

00092 '担当者

00093 Private aryLblTanto(ROW_NUM) As MSForms.Label

00094 Public lblTanto00 As MSForms.Label

00095 Public lblTanto01 As MSForms.Label

00096 Public lblTanto02 As MSForms.Label

00097 Public lblTanto03 As MSForms.Label

00098 Public lblTanto04 As MSForms.Label

00099 Public lblTanto05 As MSForms.Label

00100 Public lblTanto06 As MSForms.Label

00101 Public lblTanto07 As MSForms.Label

00102 Public lblTanto08 As MSForms.Label

00103 Public lblTanto09 As MSForms.Label

00104 Public lblTanto10 As MSForms.Label

00105 Public lblTanto11 As MSForms.Label

00106 Public lblTanto12 As MSForms.Label

00107 '得意先

00108 Private aryLblTokui(ROW_NUM) As MSForms.Label

00109 Public lblTokui00 As MSForms.Label

00110 Public lblTokui01 As MSForms.Label

00111 Public lblTokui02 As MSForms.Label

00112 Public lblTokui03 As MSForms.Label

00113 Public lblTokui04 As MSForms.Label

00114 Public lblTokui05 As MSForms.Label

00115 Public lblTokui06 As MSForms.Label

00116 Public lblTokui07 As MSForms.Label

00117 Public lblTokui08 As MSForms.Label

00118 Public lblTokui09 As MSForms.Label

00119 Public lblTokui10 As MSForms.Label

00120 Public lblTokui11 As MSForms.Label

00121 Public lblTokui12 As MSForms.Label

00122 

00123 Private Type typDetail

00124     DenpyoNo As String

00125     Date As String

00126     BusyoCD As String

00127     BusyoNM As String

00128     TantoCD As String

00129     TantoNM As String

00130     TokuiCD As String

00131     TokuiNM As String

00132 End Type

00133 Private recDetail() As typDetail