(Formulas – Name Manager) , , . (Reference) :
. , (INDEX), «» :
(ROW) , , , (1,2,3…). , 1 , 2 – ..
- - GPO HTML - , .
Sub _()
'
' 11
'
'
Line0:
C1 = "C1"
C2 = "C2"
Set RangeObj = Cells.Find(What:=" , :", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If RangeObj Is Nothing Then GoTo Line1 Else RangeObj.Select
Range(Selection, Selection.End(xlToRight)).Select
C1 = ActiveCell.Address
Set RangeObj = Cells.Find(What:=" WMI", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If RangeObj Is Nothing Then GoTo Line1 Else RangeObj.Select
Range(Selection, Selection.End(xlToRight)).Select
C2 = ActiveCell.Address
If C1 = C2 Then GoTo Line2 Else RangeObj.Select
Range(C1, C2).Select
Selection.Copy
Worksheets("5").Activate
Selection.End(xlToLeft).Select
Selection.End(xlDown).Select
Range("B319").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(1, -1).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
GoTo Line0
Line1:
Set RangeObj = Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If RangeObj Is Nothing Then GoTo Line2 Else RangeObj.Select
Range(Selection, Selection.End(xlToRight)).Select
C2 = ActiveCell.Address
If C1 = C2 Then GoTo Line2 Else RangeObj.Select
Range(C1, C2).Select
Selection.Copy
Worksheets("5").Activate
Selection.End(xlToLeft).Select
Selection.End(xlDown).Select
Range("B319").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(1, -1).Select
'Stop
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
' Stop
GoTo Line0
Line2: Worksheets("5").Activate
Selection.End(xlToLeft).Select
Selection.End(xlDown).Select
Range("B319").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = "N"
ActiveCell.Offset(1, -1).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
' Stop
GoTo Line0
End Sub
- ...
, :
|
/ |
GUID |
|
User Group Policy loopback processing mode |
Comment ( GPMC, ) |
(Y/N) |
(Y/N) |
GPO |
GPO |
- |
|
(Y/N) |
Computer Configuration (Y/N) |
User Configuration (Y/N) |
(Y/N) |
WMI (Y/N) |
( , GPO, , " ") |
GPO ( ) |
Gorely
: 
