세상의 모든 아침

070전화 wifi 비번
이렇게 3개가 있습니다.

엘지 인터넷 전화입니다.
myLGnet, myLG070 : 123456789a , 987654321a ,1234567890 , myLGNetfe07
 
굵은 글씨가 와이파이 이름이고  옆에 숫자들이 비번들이에요 ㅋㅋ
보통 저 4개 비번들 차례로 눌러보면 뚫리는 경우가 많더라구요 ㅋㅋ
 

그다음은 sk 인터넷 전화 입니다.
SK : a123456789
SO070VOIP  534f4b4354
Tbroadnet : a123456789
 
sk인터넷 전화는 다양한 와이파이 이름을 가지고 있습니다.
이름따라 비번도 다르게 설정되어 있으니 참고하세용
 
 kt입니다.

KT SSID , KT_WLAN : 1234567890 , 123456789a , 1234567890

Sub 링크추출()
On Error Resume Next
Dim rngCell As Range
Dim lnkLink As Hyperlink

For Each lnkLink In ActiveSheet.Hyperlinks
With lnkLink.Parent
.Offset(0, 1) = .Hyperlinks.Item(1).Address
End With
Next lnkLink
End Sub

-----------------------------------------
My) 내가 짠 매크로

Sub 매출손익추출_Click()

Dim str As String
Dim i1 As Integer
i1 = 0

Loop1:
str = ActiveCell.Value
If str = "" Then
  Exit Sub
End If

'테스트용. 5회반복후 탈출
'  i1 = i1 + 1
'  If i1 > 5 Then
'    Exit Sub
'  End If


With ActiveCell  '시트명 찾아서 특정셀의 값 추출
   .Offset(0, 5) = Worksheets(str).Range("i33").Value
   .Offset(0, 6) = Worksheets(str).Range("j33").Value
   .Offset(0, 7) = Worksheets(str).Range("i32").Value
   .Offset(0, 8) = Worksheets(str).Range("j32").Value
End With
 
' 아래줄로 이동
ActiveCell.Offset(1, 0).Select
 
GoTo Loop1

End Sub

-----------------------------------------------

셀에 있는 시트명을 삭제하는 매크로

Sub Sheet삭제()
'준비조건: 커서를 회사명의 셀에 두어야 함.
'커서가 빈칸으로 이동하면 매크로는 멈춤.

Dim str As String
Dim i1 As Integer
i1 = 0

On Error Resume Next

Loop1:
str = ActiveCell.Value
If str = "" Then
  Exit Sub
End If

'테스트용. 5회반복후 탈출
'  i1 = i1 + 1
'  If i1 > 5 Then
'    Exit Sub
'  End If

Worksheets(str).Delete
 
' 아래줄로 이동
ActiveCell.Offset(1, 0).Select
 
GoTo Loop1

End Sub-----------------------------------------

Function 시트명추출(Optional 시작 As Integer, Optional 길이 As Integer = 0)
  Application.Volatile 

  If 시작 < 0 Or 길이 < 0 Then
    시트명추출 = "#인수값 확인!"
    Exit Function
  End If
  If 시작 = 0 Then 시작 = 1
  If 길이 = 0 Then
    시트명추출 = Mid(Application.Caller.Parent.Name, 시작)
  Else
    시트명추출 = Mid(Application.Caller.Parent.Name, 시작, 길이)
  End If
End Function


-----------------------------------------


7. shee1시트의 a1셀에 12를 입력
   worksheets("sheet1").range("a1").value=12
  
-----------------------------------------

7. with구문
   with 반복되는 명령
.속성값1
.속성값2
   end with
   '예) with activecell
   .offset(0,0)="1"
   .offset(0,1)="2"
   .offset(0,2)="3"
end with

'예를 한줄로 표현
activecell.resize(,3)=array("1","2","3")  


-----------------------------------------

activecell.value = "1"


-----------------------------------------
'에러 처리

Sub err_Resume()
On Error GoTo ErrHandler
Workbooks.Open "C:\없는파일이름.xlsx"
Exit Sub
ErrHandler:
If Err <> 0 Then           '에러가 발생했으면
    Resume                  '에러난 행을 재실행
End If

End Sub


Sub err_Resume_Next()
On Error GoTo ErrHandler
Workbooks.Open "C:\없는파일이름.xlsx"
Exit Sub

ErrHandler:
If Err <> 0 Then          '에러가 발생했으면
    Resume Next          '에러난 다음 행을 실행
End If

End Sub

shift+F11 로 VB 편집기에 들어가서,

메뉴에서 도구 - 매크로 로 들어가서 매크로를 새로 만들어

아래의 적색 내용을 붙여 넣으면 됨.

----------------------------------

Sub 링크추출()
On Error Resume Next
Dim rngCell As Range
Dim lnkLink As Hyperlink

For Each lnkLink In ActiveSheet.Hyperlinks
With lnkLink.Parent
.Offset(0, 1) = .Hyperlinks.Item(1).Address
End With
Next lnkLink
End Sub

인생의 목표를 달성하기 위한 독서 기술로 다음 4가지 권한다.
★★★
1. 자신이 좋아하는 유형의 책꽂이를 마련
2. 마음에 드는 책은 망설이지 않고 자꾸 산다.
3. 좋아하는 작가를 만들고, 그 작가의 책을 되풀이해 읽는다.
4. 좋아하는 말이나 좋아하는 문장을 옮겨 적는다.