Excel技巧接龍

szyangwenbo

花了差不多24個小時的時間,終于在今天將這些好東東看完了,在這里非常謝謝各位出招的大哥大姐小弟小妹們,你們辛苦了.

11樓的,CTRL+~ 顯示當(dāng)然工作表中的有用到的公式,這個出不來

22樓的,為什么"DD"是要7個,經(jīng)本人反復(fù)使用,發(fā)現(xiàn)四個就可以了,20個的時候也可以,嘻嘻

14樓的,SUBTOTAL(3,[RANGE])這個做不出來;

27-37樓的叫toumaorou的朋友,非常感謝你這么多好東西,只是本人覺得你有必要將你的資料排版到一張紙上后再發(fā)表到這兒來,另外你在35樓時說的Ctrl+*這個東東出來的是"當(dāng)前工作表無分級顯示,不能顯示分級符號,是否建立分級顯示?"

76樓的,謝謝,你的方法對我很有用

我也來一個關(guān)于自動篩選項目求和的公式:Subtotal(9,H6:H606),這個H6:H606就是數(shù)據(jù)所在區(qū)域,對求每個員工的月加班小時總數(shù)是很有用的.

碧海藍(lán)天

好像沒有看到用照相機這個工具的，工具，自定義， 命令選項卡中， 工具類別， 右邊選項中，拖動照相機到工具欄上，回到工作表，選中要動態(tài)引用的單元格數(shù)據(jù)，按下照相機，再放到指定位置，可以實現(xiàn)動態(tài)引用

hover777

有意思

shah

=NOW()   顯示當(dāng)前 年月日 點

alex_yao

Ctrl+1格式設(shè)置對話框

Ctrl+←(↑→↓)能分別定位到此行（列）的下一個非空單元格

chenchunhuiabc

本人也給大家推薦一個查找程序，適用于連續(xù)在一個多數(shù)據(jù)表格里查找，

先建立一個窗體USERFORM1，添國兩個文本框 TEXTBOX1，TEXTBOX2，兩個標(biāo)簽LABEL1，LABEL2

Dim HH1 As Range
Dim HH2 As Range
Dim DD1, DD2

Private Sub CommandButton1_Click()
For DD2 = DD1 + 1 To 300
If Cells(DD2, 1).Text Like "*" & TextBox1.Text & "*" Then
ActiveWindow.ScrollRow = DD2
DD1 = DD2
GoTo LINE2
Else
End If
Next
LINE2:

End Sub

Private Sub TextBox1_Change()

For Each HH1 In Range("A4:A5000")
If HH1.Text Like "*" & TextBox1.Text & "*" Then
ActiveWindow.ScrollRow = HH1.Row
DD1 = HH1.Row
GoTo LINE1
Else
End If
Next
LINE1:
TextBox2.Text = ""
End Sub

Private Sub TextBox1_Enter()
If TextBox1.Text = "" Then
Else
If Label2.Caption = "數(shù)量無" Then  '判斷要不要輸入數(shù)字

Else

If TextBox2.Text = "" Then '判斷第二框有無數(shù)字
MsgBox "請輸入正確的數(shù)字!"
Else

If Cells(DD1, 38).Text <> "" Then '判斷第38列有無數(shù)字,有則提示
MsgBox "請輸入正確的數(shù)字！"
TextBox2.Text = ""
Else
Cells(DD1, 38).Value = TextBox2.Text '在第38列輸入第二框的數(shù)字
TextBox2.Text = ""
End If

End If

End If
End If
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 17
Cells(DD1, 2).Value = "OK" '在第38列輸入OK
TextBox1.Text = ""
Case 38
TextBox1.Text = ""
Case 39
For DD2 = DD1 + 1 To 5000
If Cells(DD2, 1).Text Like "*" & TextBox1.Text & "*" Then
ActiveWindow.ScrollRow = DD2
DD1 = DD2
GoTo LINE2
Else
End If
Next
LINE2:
Case 37 '按左光標(biāo)鍵后的程序
If Cells(DD1, 38).Text <> "" Then
MsgBox "請輸入正確的數(shù)字！"
Else
Cells(DD1, 38).Value = "OK" '在第38列輸入OK
TextBox1.Text = ""
End If
End Select

End Sub
Private Sub LABEL2_Click()
If Label2.Caption = "數(shù)量：" Then
Label2.Caption = "數(shù)量無"
TextBox2.Enabled = False
Else
Label2.Caption = "數(shù)量："
TextBox2.Enabled = True
End If
End Sub


Private Sub UserForm_Initialize()
DD1 = 1
End Sub

在模塊里建立一個啟動程序

SUB SEARCH()

USERFORM1.SHOW

END SUB

chenchunhuiabc

本人在給大家介紹一個簡單的錄入程序,對簡單卻繁鎖的數(shù)據(jù)輸入較有效,

如有不明白,或其他想與本人討論的請加QQ: 648715289

先建立一個窗體USERFORM1,添加三個文本框TEXTBOX1,TEXTBOX2,TEXTBOX3,再添加一個標(biāo)榜LABEL1

TEXTBOX1 用來輸貨號,編號,等等,輸入時只要輸入有代表性的幾位就可以了,如輸POLO-20315,可只輸入20315,如果包含20315的只有這個則馬上可以自動找出并輸入表格<如有POLO-20308,POLO-20309,POLO-20310,POLO-20312,POLO20313,POLO-20315....時)

TEXTBOX2 用來輸數(shù)據(jù),數(shù)量,重量,價格等

TEXTBOX3 用來輸貨號或編號特定不變的符號或文字<輸入后不自動變更>,沒有則不輸,

Dim CH1 As Range
Dim CH2 As Range
Dim DD1
Dim DD2

Private Sub TextBox1_Change()
TextBox3.Enabled = True
For Each CH1 In Sheets(1).Range("A1:A5000")
If CH1.Text Like "*" & TextBox1.Text & "*" Then
Label1.Caption = CH1.Text
DD1 = CH1.Row
GoTo LINE11
Else
End If
Next
LINE11:
End Sub

Private Sub TextBox1_Enter()
If TextBox3.Text = "" Then
TextBox1.EnterFieldBehavior = 0
Else
TextBox1.EnterFieldBehavior = 1
End If

If TextBox2.Text = "" Then

Else
For Each CH2 In Sheets(2).Range("A2:A5000")

If CH2.Text = "" Then
CH2.Value = Label1.Caption
Sheets(2).Cells(CH2.Row, 2).Value = TextBox2.Text
TextBox1.Text = TextBox3.Text
TextBox2.Text = ""
GoTo LINE1
Else
End If
Next
LINE1:
End If

End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode

Case 38 '按上光標(biāo)鍵清楚TEXTBOX1的內(nèi)容
TextBox1.Text = ""
Case 39 '右光標(biāo)鍵 繼續(xù)查找
For DD2 = DD1 + 1 To 5000
If Sheets(1).Cells(DD2, 1).Text Like "*" & TextBox1.Text & "*" Then
Label1.Caption = Sheets(1).Cells(DD2, 1).Text
DD1 = DD2
GoTo LINE2
Else
End If
Next
LINE2:
Case 37 '按左光標(biāo)鍵后的程序

End Select
End Sub

Private Sub TextBox2_Enter()
TextBox3.Enabled = False
End Sub

chenchunhuiabc

我再給大家介紹一個多條件求和函數(shù),

{=SUM(IF(A1:A200=G2,IF(B1:B200=G3,IF(C1:C200>G4,IF(D1200<G5,F1:F200)))))}

        條件1,          條件2,       條件3,        條件4,|,    結(jié)果和    大括號表示這是數(shù)組公式 同時按Ctrl + Shift + Enter 這三個即可設(shè)成為數(shù)組公式

意思就是求A1:A200中有G2所對應(yīng)的,B1:B200中有G3所對應(yīng)的,C1:C200中有G3所對應(yīng)的,D1200中有G4所對應(yīng)的,即這四個同理對應(yīng)時的F1:F200中的和

如有不明白,或其他想與本人討論的請加QQ: 648715289

zglnjzltlizhen

請教你對宏的編輯懂嗎，我是新手啊。

zsj1101

判斷字符串內(nèi)碼   Function CheckCode(StrChk As String) As String

     '判斷是否包含漢字

     StrChk = VBA.StrConv(StrChk, vbNarrow)

     If (Len(StrChk) <> LenB(StrConv(StrChk, vbFromUnicode))) = False Then

        CheckCode = "English/Data"

        Exit Function

     End If



     '判斷文本內(nèi)碼

     For I = 1 To Len(StrChk)

         F = Hex(Asc(Mid(StrChk, I, 1)))

         L1 = CInt("&H" + Mid(F, 1, 2))

         R1 = CInt("&H" + Mid(F, 3, 2))

         'GBCode    1>A0H - FEH

         'BIG5Code  1>80H - FFH  2>00H-FFH

         'MsgBox Val("&H ")

         If R1 < 127 Then

            CheckCode = "Big5"

            Exit Function

         End If

     Next

     CheckCode = "GB"

   End Function