excel_vba数据遍历提取

Public effectarea_mark As Integer

Public itemsource_position_x As Integer '源项目名称所在行

Public itemsource_position_y As Integer '源项目名称所在列

Public casesource_position_x As Integer '源工况名称所在行

Public casesource_position_y As Integer '源工况名称所在列

Public item_position_x As Integer '目标项目名称所在行

Public item_position_y As Integer '目标项目名称所在行

Public case_position_x As Integer '目标工况名称所在列

Public case_position_y As Integer '目标工况名称所在列

Public itemsource_position_x_start As Integer '源项目名称所在行起始位置Public itemsource_position_y_start As Integer '源项目名称所在列起始位置Public casesource_position_x_start As Integer '源工况名称所在行起始位置Public casesource_position_y_start As Integer '源工况名称所在列起始位置Public item_position_x_start As Integer '目标项目名称所在行起始位置Public item_position_y_start As Integer '目标项目名称所在行起始位置Public case_position_x_start As Integer '目标工况名称所在列起始位置Public case_position_y_start As Integer '目标工况名称所在列起始位置Public itemsource_position_x_max As Integer '源项目名称所在行终止位置Public itemsource_position_y_max As Integer '源项目名称所在列终止位置Public casesource_position_x_max As Integer '源工况名称所在行终止位置Public casesource_position_y_max As Integer '源工况名称所在列终止位置Public item_position_x_max As Integer '目标项目名称所在行终止位置Public item_position_y_max As Integer '目标项目名称所在行终止位置Public case_position_x_max As Integer '目标工况名称所在列终止位置

Public case_position_y_max As Integer '目标工况名称所在列终止位置Public item_name As String

Public case_name As String

Public itemsource_name As String

Public casesource_name As String

Public sheet_source_name As String

Public sheetname As String

Public bookname As String

Public UserForm As Object

Public getrange_selected As Range

Public row_start%, row_end%, col_start%, col_end%

Public Sub getrange()

form_getrange.Show (0)

End Sub

‘以下为窗体部分

Private Sub cmd_getrange_item_Click()

effectarea_mark = 1

form_getrange.Caption = "选择目标数据区域行标题所在列"

cmd_getrange_selected_judge_Click

End Sub

Private Sub cmd_getrange_case_Click()

effectarea_mark = 2

form_getrange.Caption = "选择目标数据区域列标题所在行"

cmd_getrange_selected_judge_Click

End Sub

Private Sub cmd_getrange_itemsource_Click() effectarea_mark = 3

form_getrange.Caption = "选择源数据区域行标题所在列" cmd_getrange_selected_judge_Click

End Sub

Private Sub cmd_getrange_casesource_Click() effectarea_mark = 4

form_getrange.Caption = "选择源数据区域列标题所在行" cmd_getrange_selected_judge_Click

End Sub

Private Sub cmd_getrange_selected_judge_Click()

If cmd_getrange_selected_judge.Caption = "定" Then cmd_getrange_selected_judge.Caption = "选"

Lab_getrange.Left = 0

Lab_getrange.Width = 70

txt_getrange.Left = 70

txt_getrange.Width = 300

getrange

txt_getrange.Visible = False

cmd_getrange_selected_judge.Visible = False

With form_getrange

.StartUpPosition = 1

.Caption = "数据提取"

.Width = 410

.Height = 210