슬라이드 쇼 검색 기능

Question

슬라이드 쇼에 검색 기능을 추가했습니다.

내가 사용하고있는 코드는

If SearchTxt = "social networking" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 5 
Slide52.SearchBox.Text = "" 
End If 

그냥 모든 조건 및 슬라이드 링크, 반복 반복이다. 일부 용어는 작동하지 않습니다.

전체 코드 : 당신이 용어가 작동하지 않는 명시된 경우 도움이 될

Sub Search() 

SearchTxt = LCase(Slide52.SearchBox.Text) 

If SearchTxt = "social networking" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 5 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "internet browsers" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 6 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "domain name" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 7 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "protocol name" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 8 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "netiquette" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 9 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "http" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 10 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "pop3" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 11 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "smtp" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 12 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "html" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 13 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "rss" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 14 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "isp" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 15 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "router" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 16 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "modem" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 17 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "server" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 18 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "client" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 19 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "compressed files" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 20 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "tcp" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 21 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "ftp" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 22 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "cloud storage" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 23 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "firewall" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 24 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "packet switching" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 25 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "serial transmission" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 26 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "bi directional transmission" Or "bi-directional transmission" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 27 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "circuit switched transmission" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 28 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "ubiquitous computing" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 29 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "e-commerce" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 30 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "e commerce" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 30 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "data integrity" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 31 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "pinging" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 32 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "popup" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 33 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "pop up" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 33 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "voip" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 34 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "rfid" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 35 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "nap" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 36 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "ip" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 38 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "internet" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 39 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "www" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 40 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "bandwidth" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 41 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "transmission rate" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 42 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "imap" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 44 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "fibre optic" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 45 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "simplex" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 46 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "half duplex" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 48 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "full duplex" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 49 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "duplex" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 49 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "codec" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 50 
Slide52.SearchBox.Text = "" 
End If 
If SearchTxt = "url" Then 
ActivePresentation.SlideShowWindow.View.GotoSlide 43 
Slide52.SearchBox.Text = "" 
End If 

End Sub 

Answer 1

.

If SearchTxt = "bi directional transmission" Or "bi-directional transmission" Then 

및 검색 텍스트는 이제 빈되기 때문에이 아래의 모든 IFS가 실행되지 않습니다 의미

If SearchTxt = "bi directional transmission" Or SearchTxt = "bi-directional transmission" Then 

는 첫 번째 버전은 진정한 될 것입니다해야한다 : 그러나,이 구문이 올바르지 않습니다 .