輸入關鍵字即可找到資料 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 輸入關鍵字即可找到資料

返回列表下一主題上一主題發帖

輸入關鍵字即可找到資料

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

1^# 跳轉到 »

發表於 2016-3-21 14:48 | 顯示全部帖子

回復 1# mj0917m

請詳細敘述說明問題所想要得結果

給你個提示：

Application.DisplayAlerts = False '提示取消
Application.ScreenUpdating = False '螢幕更新取消
Sub A()
'str = "內"
'str3 = "年"
'Cells(1, 15) = "搜尋目標源"
'Cells(1, 16) = "判斷是否找到"
'Cells(1, 17) = "關鍵字位置"
For asy = 2 To ActiveSheet.Range("b1").CurrentRegion.Rows.Count
Cells(asy, 15) = Cells(asy, 2)
For ahs = 94 To 99
Next ahs
Next asy
For i = 2 To ActiveSheet.Range("a2").CurrentRegion.Rows.Count
If Mid(Cells(i, 1), 1, 3) = "099" Or Mid(Cells(i, 1), 1, 2) = "99" Then
If (InStr(1, 工作表1.Cells(i, 1), "內") >= 1) Then
工作表1.Cells(i, 7) = "find"
工作表1.Cells(i, 11) = InStr(工作表1.Cells(i, 1), "內")
s = s + 1
End If
End If
Next
工作表1.Cells(i, 8) = "find"
End Sub

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2016-3-27 15:57 | 顯示全部帖子

回復 6# mj0917m

ALT+F11 移到工作表一的程式內把以下程式碼貼上

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ss As String: ss = [a2]
For iui = 5 To 11
If Range("a" & iui).Value = ss Then [b2:d2] = Range("b" & iui, "d" & iui).Value
Next
End Sub

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。

返回列表下一主題上一主題