nogod

예 : 이제 ID 번호 12345에 John John이라는 이름이 있고 John Knight에 업데이트하려고합니다. ADO를 사용하면 다음을 시도 할 수 있습니다. Edit1 : 실제로 Recordset을 사용하지 않고이 작업을 수행 할 수 있습니다. 아래 업데이트를 참조하십시오. Sub conscious() Dim con As ADODB.Connection Dim sqlstr As S..

Sub HighlightRanges() Dim RangeName As Name Dim HighlightRange As Range On Error Resume Next For Each RangeName In ActiveWorkbook.Names Set HighlightRange = RangeName.RefersToRange HighlightRange.Interior.ColorIndex = 36 Next RangeName End Sub 12. Highlight the Active Row and Column I really love to use this macro code whenever I have to analyze a data table. Here ar..

Private Sub UserForm_Resize() Dim wp As WINDOWPLACEMENT Dim hwnd As Long hwnd = FindWindowA(vbNullString, Me.Caption) wp.Length = Len(wp) GetWindowPlacement hwnd, wp MsgBox wp.showCmd End Sub 모듈 Option Explicit Public Declare Function FindWindowA Lib "user32" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Public Declare Function GetWindowLongA Lib ..