狠狠撸

狠狠撸Share a Scribd company logo
2_1_##########
On Error GoTo EERR
With UserForm1
.Height = 210
.Width = 757
End With
Exit Sub
EERR:
'2_1_##########
'2_2_##########
On Error GoTo EERR
Dim BLATBLAT As Integer
For BLATBLAT = 1 To Worksheets.Count
Worksheets(BLATBLAT).Activate
ActiveWindow.View = xlNormalView
Next BLATBLAT
Worksheets(1).Activate
UserForm1.Show
Exit Sub
EERR:
'2_2_##########
'''3_1_##########
Dim BLATBLAT As Integer
For BLATBLAT = 1 To Worksheets.Count
With ComboBox1
.AddItem Worksheets(BLATBLAT).Name
End With
Next BLATBLAT
'''3_1_##########
'''4_1_e_##########
On Error GoTo EERR
Dim BLATTNAME As String
BLATTNAME = ComboBox1.Value
If ComboBox1.Value <> "" And ComboBox1.Value <> "Mask" Then
Sheets(BLATTNAME).Activate
End If
Exit Sub
EERR:
'''4_1_e_##########
'''5_1_##########
Label2 = ActiveSheet.[a10].Value
Label3 = ActiveSheet.[b10].Value
Label4 = ActiveSheet.[c10].Value
Label5 = ActiveSheet.[d10].Value
Label6 = ActiveSheet.[e10].Value
Label7 = ActiveSheet.[f10].Value
Label8 = ActiveSheet.[g10].Value
Label9 = ActiveSheet.[h10].Value
'''5_1_##########
'''6_2_##########
On Error GoTo EERR
Dim AAAZ As Long
Dim AAAC As Long
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
If ComboBox2 <> "" Then
Dim SUHENWAS As Variant
SUHENWAS = ComboBox2.Value
ActiveSheet.Range("a12:a1048576").Cells.Find(What:=SUHENWAS, lookat:=xlWhole).Activate
AAAZ = CDbl(ActiveCell.Row)
AAAC = CDbl(ActiveCell.Column)
TextBox1.Value = ActiveSheet.Cells(AAAZ, AAAC + 1).Value
TextBox2.Value = ActiveSheet.Cells(AAAZ, AAAC + 2).Value
TextBox3.Value = ActiveSheet.Cells(AAAZ, AAAC + 3).Value
TextBox4.Value = ActiveSheet.Cells(AAAZ, AAAC + 4).Value
TextBox5.Value = ActiveSheet.Cells(AAAZ, AAAC + 5).Value
TextBox6.Value = ActiveSheet.Cells(AAAZ, AAAC + 6).Value
TextBox7.Value = ActiveSheet.Cells(AAAZ, AAAC + 7).Value
End If
Exit Sub
EERR:
'''6_2_##########
''8_1_##########
On Error GoTo EERR
Dim COOLUMM As Integer
Dim ROOWW As Integer
COOLUMM = CDbl(ActiveCell.Column)
ROOWW = CDbl(ActiveCell.Row)
If CDbl(ActiveCell.Column) > 1 Then
ActiveSheet.Cells(ROOWW, COOLUMM - 1).Select
End If
Exit Sub
EERR:
'8_1_##########
Ad

Recommended

What you forgot from your Computer Science Degree
What you forgot from your Computer Science Degree
Stephen Darlington
?
Immutability and Javascript - Nadia Mi?tkiewicz
Immutability and Javascript - Nadia Mi?tkiewicz
Visuality
?
Lazy Loading and Object Proxying Shenangians
Lazy Loading and Object Proxying Shenangians
John Barton
?
Ktifkan dulu microsoft visual basic
Ktifkan dulu microsoft visual basic
Slamet Achwandy
?
Control de acceso con excel
Control de acceso con excel
Reember Alex Arteaga Ticona
?
Forgot password for protected sheet on Microsoft Excel!?
Forgot password for protected sheet on Microsoft Excel!?
perfectpredesti94
?
贰虫肠别濒マクロはじめの一歩
贰虫肠别濒マクロはじめの一歩
Ayumu Hanba
?
Codigo
Codigo
chuquilinsalazar
?
Macros for Workbook
Macros for Workbook
Pramodkumar Jha
?
Codigo para el formulario frm
Codigo para el formulario frm
Joseph Jimenez
?
Codigo para el formulario frm
Codigo para el formulario frm
Paúl Santana
?
Codigo para el formulario frm
Codigo para el formulario frm
Erick175
?
Codigo para el formulario frm
Codigo para el formulario frm
shishiflein0812
?
Macros code Copy paste visible data after filtering
Macros code Copy paste visible data after filtering
Pramodkumar Jha
?
Cara membuka workbook yang terproteksi
Cara membuka workbook yang terproteksi
Irmaoly
?
Lesson 1 introduction to spreadsheet
Lesson 1 introduction to spreadsheet
afrimkofielias
?
VBA Coding for Word to Numeric
VBA Coding for Word to Numeric
Aqeel Hanjra
?
Macros code for Protecting and Unprotecting Sheets
Macros code for Protecting and Unprotecting Sheets
Pramodkumar Jha
?
NASA ESE Study Results v4 05.29.2020.pptx
NASA ESE Study Results v4 05.29.2020.pptx
CiroAlejandroCamacho
?
Attendance Presentation Project Excel.pptx
Attendance Presentation Project Excel.pptx
s2025266191
?
Crafting-Research-Recommendations Grade 12.pptx
Crafting-Research-Recommendations Grade 12.pptx
DaryllWhere
?
NVIDIA Triton Inference Server, a game-changing platform for deploying AI mod...
NVIDIA Triton Inference Server, a game-changing platform for deploying AI mod...
Tamanna36
?
BCG-Executive-Perspectives-CEOs-Guide-to-Maximizing-Value-from-AI-EP0-3July20...
BCG-Executive-Perspectives-CEOs-Guide-to-Maximizing-Value-from-AI-EP0-3July20...
benediktnetzer1
?
Lesson-3_Program-Outcomes-and-Student-Learning-Outcomes_For-Students.pdf
Lesson-3_Program-Outcomes-and-Student-Learning-Outcomes_For-Students.pdf
SarahMaeDuallo
?
Data Visualisation in data science for students
Data Visualisation in data science for students
confidenceascend
?
最新版意大利米兰大学毕业证(鲍狈滨惭滨毕业证书)原版定制
最新版意大利米兰大学毕业证(鲍狈滨惭滨毕业证书)原版定制
taqyea
?
@Reset-Password.pptx presentakh;kenvtion
@Reset-Password.pptx presentakh;kenvtion
MarkLariosa1
?
最新版美国加利福尼亚大学旧金山法学院毕业证(鲍颁尝补飞厂贵毕业证书)定制
最新版美国加利福尼亚大学旧金山法学院毕业证(鲍颁尝补飞厂贵毕业证书)定制
taqyea
?
lecture12.pdf Introduction to bioinformatics
lecture12.pdf Introduction to bioinformatics
SergeyTsygankov6
?
11_L2_Defects_and_Trouble_Shooting_2014[1].pdf
11_L2_Defects_and_Trouble_Shooting_2014[1].pdf
gun3awan88
?

More Related Content

Similar to 2 (10)

Macros for Workbook
Macros for Workbook
Pramodkumar Jha
?
Codigo para el formulario frm
Codigo para el formulario frm
Joseph Jimenez
?
Codigo para el formulario frm
Codigo para el formulario frm
Paúl Santana
?
Codigo para el formulario frm
Codigo para el formulario frm
Erick175
?
Codigo para el formulario frm
Codigo para el formulario frm
shishiflein0812
?
Macros code Copy paste visible data after filtering
Macros code Copy paste visible data after filtering
Pramodkumar Jha
?
Cara membuka workbook yang terproteksi
Cara membuka workbook yang terproteksi
Irmaoly
?
Lesson 1 introduction to spreadsheet
Lesson 1 introduction to spreadsheet
afrimkofielias
?
VBA Coding for Word to Numeric
VBA Coding for Word to Numeric
Aqeel Hanjra
?
Macros code for Protecting and Unprotecting Sheets
Macros code for Protecting and Unprotecting Sheets
Pramodkumar Jha
?
Codigo para el formulario frm
Codigo para el formulario frm
Joseph Jimenez
?
Codigo para el formulario frm
Codigo para el formulario frm
Paúl Santana
?
Codigo para el formulario frm
Codigo para el formulario frm
Erick175
?
Codigo para el formulario frm
Codigo para el formulario frm
shishiflein0812
?
Macros code Copy paste visible data after filtering
Macros code Copy paste visible data after filtering
Pramodkumar Jha
?
Cara membuka workbook yang terproteksi
Cara membuka workbook yang terproteksi
Irmaoly
?
Lesson 1 introduction to spreadsheet
Lesson 1 introduction to spreadsheet
afrimkofielias
?
VBA Coding for Word to Numeric
VBA Coding for Word to Numeric
Aqeel Hanjra
?
Macros code for Protecting and Unprotecting Sheets
Macros code for Protecting and Unprotecting Sheets
Pramodkumar Jha
?

Recently uploaded (20)

NASA ESE Study Results v4 05.29.2020.pptx
NASA ESE Study Results v4 05.29.2020.pptx
CiroAlejandroCamacho
?
Attendance Presentation Project Excel.pptx
Attendance Presentation Project Excel.pptx
s2025266191
?
Crafting-Research-Recommendations Grade 12.pptx
Crafting-Research-Recommendations Grade 12.pptx
DaryllWhere
?
NVIDIA Triton Inference Server, a game-changing platform for deploying AI mod...
NVIDIA Triton Inference Server, a game-changing platform for deploying AI mod...
Tamanna36
?
BCG-Executive-Perspectives-CEOs-Guide-to-Maximizing-Value-from-AI-EP0-3July20...
BCG-Executive-Perspectives-CEOs-Guide-to-Maximizing-Value-from-AI-EP0-3July20...
benediktnetzer1
?
Lesson-3_Program-Outcomes-and-Student-Learning-Outcomes_For-Students.pdf
Lesson-3_Program-Outcomes-and-Student-Learning-Outcomes_For-Students.pdf
SarahMaeDuallo
?
Data Visualisation in data science for students
Data Visualisation in data science for students
confidenceascend
?
最新版意大利米兰大学毕业证(鲍狈滨惭滨毕业证书)原版定制
最新版意大利米兰大学毕业证(鲍狈滨惭滨毕业证书)原版定制
taqyea
?
@Reset-Password.pptx presentakh;kenvtion
@Reset-Password.pptx presentakh;kenvtion
MarkLariosa1
?
最新版美国加利福尼亚大学旧金山法学院毕业证(鲍颁尝补飞厂贵毕业证书)定制
最新版美国加利福尼亚大学旧金山法学院毕业证(鲍颁尝补飞厂贵毕业证书)定制
taqyea
?
lecture12.pdf Introduction to bioinformatics
lecture12.pdf Introduction to bioinformatics
SergeyTsygankov6
?
11_L2_Defects_and_Trouble_Shooting_2014[1].pdf
11_L2_Defects_and_Trouble_Shooting_2014[1].pdf
gun3awan88
?
Shifting Focus on AI: How it Can Make a Positive Difference
Shifting Focus on AI: How it Can Make a Positive Difference
1508 A/S
?
Microsoft Power BI - Advanced Certificate for Business Intelligence using Pow...
Microsoft Power BI - Advanced Certificate for Business Intelligence using Pow...
Prasenjit Debnath
?
UPS and Big Data intro to Business Analytics.pptx
UPS and Big Data intro to Business Analytics.pptx
sanjum5582
?
PPT1_CB_VII_CS_Ch3_FunctionsandChartsinCalc.ppsx
PPT1_CB_VII_CS_Ch3_FunctionsandChartsinCalc.ppsx
animaroy81
?
Communication_Skills_Class10_Visual.pptx
Communication_Skills_Class10_Visual.pptx
namanrastogi70555
?
ppt somu_Jarvis_AI_Assistant_presen.pptx
ppt somu_Jarvis_AI_Assistant_presen.pptx
MohammedumarFarhan
?
Camuflaje Tipos Características Militar 2025.ppt
Camuflaje Tipos Características Militar 2025.ppt
e58650738
?
Model Evaluation & Visualisation part of a series of intro modules for data ...
Model Evaluation & Visualisation part of a series of intro modules for data ...
brandonlee626749
?
NASA ESE Study Results v4 05.29.2020.pptx
NASA ESE Study Results v4 05.29.2020.pptx
CiroAlejandroCamacho
?
Attendance Presentation Project Excel.pptx
Attendance Presentation Project Excel.pptx
s2025266191
?
Crafting-Research-Recommendations Grade 12.pptx
Crafting-Research-Recommendations Grade 12.pptx
DaryllWhere
?
NVIDIA Triton Inference Server, a game-changing platform for deploying AI mod...
NVIDIA Triton Inference Server, a game-changing platform for deploying AI mod...
Tamanna36
?
BCG-Executive-Perspectives-CEOs-Guide-to-Maximizing-Value-from-AI-EP0-3July20...
BCG-Executive-Perspectives-CEOs-Guide-to-Maximizing-Value-from-AI-EP0-3July20...
benediktnetzer1
?
Lesson-3_Program-Outcomes-and-Student-Learning-Outcomes_For-Students.pdf
Lesson-3_Program-Outcomes-and-Student-Learning-Outcomes_For-Students.pdf
SarahMaeDuallo
?
Data Visualisation in data science for students
Data Visualisation in data science for students
confidenceascend
?
最新版意大利米兰大学毕业证(鲍狈滨惭滨毕业证书)原版定制
最新版意大利米兰大学毕业证(鲍狈滨惭滨毕业证书)原版定制
taqyea
?
@Reset-Password.pptx presentakh;kenvtion
@Reset-Password.pptx presentakh;kenvtion
MarkLariosa1
?
最新版美国加利福尼亚大学旧金山法学院毕业证(鲍颁尝补飞厂贵毕业证书)定制
最新版美国加利福尼亚大学旧金山法学院毕业证(鲍颁尝补飞厂贵毕业证书)定制
taqyea
?
lecture12.pdf Introduction to bioinformatics
lecture12.pdf Introduction to bioinformatics
SergeyTsygankov6
?
11_L2_Defects_and_Trouble_Shooting_2014[1].pdf
11_L2_Defects_and_Trouble_Shooting_2014[1].pdf
gun3awan88
?
Shifting Focus on AI: How it Can Make a Positive Difference
Shifting Focus on AI: How it Can Make a Positive Difference
1508 A/S
?
Microsoft Power BI - Advanced Certificate for Business Intelligence using Pow...
Microsoft Power BI - Advanced Certificate for Business Intelligence using Pow...
Prasenjit Debnath
?
UPS and Big Data intro to Business Analytics.pptx
UPS and Big Data intro to Business Analytics.pptx
sanjum5582
?
PPT1_CB_VII_CS_Ch3_FunctionsandChartsinCalc.ppsx
PPT1_CB_VII_CS_Ch3_FunctionsandChartsinCalc.ppsx
animaroy81
?
Communication_Skills_Class10_Visual.pptx
Communication_Skills_Class10_Visual.pptx
namanrastogi70555
?
ppt somu_Jarvis_AI_Assistant_presen.pptx
ppt somu_Jarvis_AI_Assistant_presen.pptx
MohammedumarFarhan
?
Camuflaje Tipos Características Militar 2025.ppt
Camuflaje Tipos Características Militar 2025.ppt
e58650738
?
Model Evaluation & Visualisation part of a series of intro modules for data ...
Model Evaluation & Visualisation part of a series of intro modules for data ...
brandonlee626749
?
Ad

2

  • 1. 2_1_########## On Error GoTo EERR With UserForm1 .Height = 210 .Width = 757 End With Exit Sub EERR: '2_1_########## '2_2_########## On Error GoTo EERR Dim BLATBLAT As Integer For BLATBLAT = 1 To Worksheets.Count Worksheets(BLATBLAT).Activate ActiveWindow.View = xlNormalView Next BLATBLAT Worksheets(1).Activate UserForm1.Show Exit Sub EERR: '2_2_########## '''3_1_########## Dim BLATBLAT As Integer For BLATBLAT = 1 To Worksheets.Count With ComboBox1 .AddItem Worksheets(BLATBLAT).Name End With
  • 2. Next BLATBLAT '''3_1_########## '''4_1_e_########## On Error GoTo EERR Dim BLATTNAME As String BLATTNAME = ComboBox1.Value If ComboBox1.Value <> "" And ComboBox1.Value <> "Mask" Then Sheets(BLATTNAME).Activate End If Exit Sub EERR: '''4_1_e_########## '''5_1_########## Label2 = ActiveSheet.[a10].Value Label3 = ActiveSheet.[b10].Value Label4 = ActiveSheet.[c10].Value Label5 = ActiveSheet.[d10].Value Label6 = ActiveSheet.[e10].Value Label7 = ActiveSheet.[f10].Value Label8 = ActiveSheet.[g10].Value Label9 = ActiveSheet.[h10].Value '''5_1_##########
  • 3. '''6_2_########## On Error GoTo EERR Dim AAAZ As Long Dim AAAC As Long TextBox1 = "" TextBox2 = "" TextBox3 = "" TextBox4 = "" TextBox5 = "" TextBox6 = "" TextBox7 = "" If ComboBox2 <> "" Then Dim SUHENWAS As Variant SUHENWAS = ComboBox2.Value ActiveSheet.Range("a12:a1048576").Cells.Find(What:=SUHENWAS, lookat:=xlWhole).Activate AAAZ = CDbl(ActiveCell.Row) AAAC = CDbl(ActiveCell.Column) TextBox1.Value = ActiveSheet.Cells(AAAZ, AAAC + 1).Value TextBox2.Value = ActiveSheet.Cells(AAAZ, AAAC + 2).Value TextBox3.Value = ActiveSheet.Cells(AAAZ, AAAC + 3).Value TextBox4.Value = ActiveSheet.Cells(AAAZ, AAAC + 4).Value TextBox5.Value = ActiveSheet.Cells(AAAZ, AAAC + 5).Value TextBox6.Value = ActiveSheet.Cells(AAAZ, AAAC + 6).Value TextBox7.Value = ActiveSheet.Cells(AAAZ, AAAC + 7).Value End If Exit Sub EERR:
  • 4. '''6_2_########## ''8_1_########## On Error GoTo EERR Dim COOLUMM As Integer Dim ROOWW As Integer COOLUMM = CDbl(ActiveCell.Column) ROOWW = CDbl(ActiveCell.Row) If CDbl(ActiveCell.Column) > 1 Then ActiveSheet.Cells(ROOWW, COOLUMM - 1).Select End If Exit Sub EERR: '8_1_##########