_ Partial Class 交易明細表導入 Inherits System.Windows.Forms.Form 'Form 覆寫 Dispose 以清除元件清單。 Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub '為 Windows Form 設計工具的必要項 Private components As System.ComponentModel.IContainer '注意: 以下為 Windows Form 設計工具所需的程序 '可以使用 Windows Form 設計工具進行修改。 '請勿使用程式碼編輯器進行修改。 Private Sub InitializeComponent() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.貼上_bt = New System.Windows.Forms.Button() Me.轉換前_dgv = New System.Windows.Forms.DataGridView() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.存檔_bt = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() CType(Me.轉換前_dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' '貼上_bt ' Me.貼上_bt.Location = New System.Drawing.Point(893, 77) Me.貼上_bt.Name = "貼上_bt" Me.貼上_bt.Size = New System.Drawing.Size(75, 29) Me.貼上_bt.TabIndex = 83 Me.貼上_bt.Text = "貼上" Me.貼上_bt.UseVisualStyleBackColor = True ' '轉換前_dgv ' DataGridViewCellStyle2.BackColor = System.Drawing.Color.MistyRose Me.轉換前_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 Me.轉換前_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.轉換前_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.轉換前_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.轉換前_dgv.Location = New System.Drawing.Point(5, 109) Me.轉換前_dgv.Name = "轉換前_dgv" Me.轉換前_dgv.RowHeadersWidth = 5 Me.轉換前_dgv.RowTemplate.Height = 24 Me.轉換前_dgv.Size = New System.Drawing.Size(1530, 603) Me.轉換前_dgv.TabIndex = 84 ' 'TextBox1 ' Me.TextBox1.Location = New System.Drawing.Point(500, 64) Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(371, 23) Me.TextBox1.TabIndex = 85 Me.TextBox1.Text = "=IF(L7=""贈送"",0,IF(OR(I7=0,I7=""0""),G7*H7-J7,G7*H7/100*I7-J7))" ' '存檔_bt ' Me.存檔_bt.Location = New System.Drawing.Point(1386, 77) Me.存檔_bt.Name = "存檔_bt" Me.存檔_bt.Size = New System.Drawing.Size(75, 29) Me.存檔_bt.TabIndex = 86 Me.存檔_bt.Text = "存檔" Me.存檔_bt.UseVisualStyleBackColor = True ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(2, 3) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(128, 16) Me.Label1.TabIndex = 87 Me.Label1.Text = "導入交易明細表的步驟" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(161, 25) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(541, 16) Me.Label2.TabIndex = 88 Me.Label2.Text = "2、除了第一點剩下的所有空白格都填入 [ . ],在人員的三個欄位中如果只有 W 的欄位也要改成 [ . ]。" ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(161, 3) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(682, 16) Me.Label3.TabIndex = 89 Me.Label3.Text = "1、打開交易明細表後,利用excel篩選的功能將表格中,[單價]、[數量]、[折℅]、[折讓]、[業績]五個欄位內有空白的格子補零。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(161, 68) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(339, 16) Me.Label4.TabIndex = 90 Me.Label4.Text = "4、將右邊個公式複製下來,貼到業績欄位中的第一筆資料上。" ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(161, 46) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(653, 16) Me.Label5.TabIndex = 91 Me.Label5.Text = "3、將[單價]、[數量]、[折℅]、[折讓],四列,每列個別選擇後做資料資料剖析(共要做四次),將數字變成可以計算的狀態。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) ' 'Label6 ' Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(161, 90) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(591, 16) Me.Label6.TabIndex = 92 Me.Label6.Text = "5、貼上第四點的公式後,在資料格的右下方有一個方點,滑鼠連點兩下就可以將公式完整攤開在整個清單上。" ' 'Label7 ' Me.Label7.AutoSize = True Me.Label7.Location = New System.Drawing.Point(890, 3) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(571, 64) Me.Label7.TabIndex = 93 Me.Label7.Text = "6、在準備好一到五點的步驟之後,將資料表複製起來(從到七行開始到最後一行,也就是第一筆交易記錄到" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " 最後一筆,不要表頭與表尾),回到系統中,按下貼上" & "。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "PS : 1 、在貼上的資料解析完成之後,再按下存檔,即可完成客戶交易紀錄導入。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " 2、在人員的欄位不可以有兩個人通時存在,如果兩人同時存在" & "要將資料拆成兩筆,金額/2。" ' '交易明細表導入 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1542, 720) Me.Controls.Add(Me.Label7) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.存檔_bt) Me.Controls.Add(Me.TextBox1) Me.Controls.Add(Me.轉換前_dgv) Me.Controls.Add(Me.貼上_bt) Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte)) Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.Name = "交易明細表導入" Me.Text = "交易明細表導入" CType(Me.轉換前_dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents 貼上_bt As Button Friend WithEvents 轉換前_dgv As DataGridView Friend WithEvents TextBox1 As TextBox Friend WithEvents 存檔_bt As Button Friend WithEvents Label1 As Label Friend WithEvents Label2 As Label Friend WithEvents Label3 As Label Friend WithEvents Label4 As Label Friend WithEvents Label5 As Label Friend WithEvents Label6 As Label Friend WithEvents Label7 As Label End Class