主頁 > 作業系統 > 想清理一個VBA命令按鈕，但我很擅長編碼

想清理一個VBA命令按鈕，但我很擅長編碼

2021-12-08 02:50:24 作業系統

我有一些資料是由我的一名員工手動輸入的，然后當他們點擊按鈕時表格被清除。然后使用我拼湊的一些 VBA 將資料傳輸到另一張作業表，然后該作業表受密碼保護。不幸的是，我不知道如何做到這一點，所以我找到了一些零碎的代碼并將它們捆綁在一起以使其作業......編程相當于口香糖、膠帶和打包線。任何人都可以看看這個并告訴我如何將一列復制到一行中，而不是我想出的版本？有多張作業表，一張是實際資料，另一張是我用來存檔的，具體取決于資料的存盤位置。作業表名稱為“活動運行”和“11A”、“11B”等。

    Private Sub CommandButton3_Click()

'Time check
If IsEmpty(Range("D7").Value) = True Then
MsgBox "No Time Stamp!", vbOKCancel   vbCritical
 Exit Sub
End If

'name check
If InStr(1, (Range("R7").Value), "<Choose one>") > 0 Then
MsgBox "Select a name from the pull-down menu", vbOKCancel   vbCritical
 Exit Sub
End If

Application.ScreenUpdating = False

ActiveSheet.Unprotect "password"
Worksheets("11A Run Data").Unprotect "password"
Worksheets("11B Run Data").Unprotect "password"
Worksheets("12A Run Data").Unprotect "password"
Worksheets("12B Run Data").Unprotect "password"
Worksheets("13A Run Data").Unprotect "password"
Worksheets("13B Run Data").Unprotect "password"



If MsgBox("This will clear all data!" & vbCr & "Do you wish to proceed?", vbOKCancel   vbExclamation, "Warning!") = vbOK Then
   

'Name
    
Sheets("Active Run").Range("R7").Copy
With Sheets("11A Run Data").Range("A" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With
Sheets("Active Run").Range("R7").Copy
With Sheets("11B Run Data").Range("A" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With

Sheets("Active Run").Range("R7").Copy
With Sheets("12A Run Data").Range("A" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With
Sheets("Active Run").Range("R7").Copy
With Sheets("12B Run Data").Range("A" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With

Sheets("Active Run").Range("R7").Copy
With Sheets("13A Run Data").Range("A" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With
Sheets("Active Run").Range("R7").Copy
With Sheets("13B Run Data").Range("A" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With


'Date
Sheets("Active Run").Range("AC8").Copy
With Sheets("11A Run Data").Range("B" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With
Sheets("Active Run").Range("AC8").Copy
With Sheets("11B Run Data").Range("B" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With

Sheets("Active Run").Range("AC8").Copy
With Sheets("12A Run Data").Range("B" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With
Sheets("Active Run").Range("AC8").Copy
With Sheets("12B Run Data").Range("B" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With

Sheets("Active Run").Range("AC8").Copy
With Sheets("13A Run Data").Range("B" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With
Sheets("Active Run").Range("AC8").Copy
With Sheets("13B Run Data").Range("B" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With



'Time
Sheets("Active Run").Range("AD8").Copy
With Sheets("11A Run Data").Range("C" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With
Sheets("Active Run").Range("AD8").Copy
With Sheets("11B Run Data").Range("C" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With

Sheets("Active Run").Range("AD8").Copy
With Sheets("12A Run Data").Range("C" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With
Sheets("Active Run").Range("AD8").Copy
With Sheets("12B Run Data").Range("C" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With

Sheets("Active Run").Range("AD8").Copy
With Sheets("13A Run Data").Range("C" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With
Sheets("Active Run").Range("AD8").Copy
With Sheets("13B Run Data").Range("C" & Rows.Count).End(xlUp).Offset(1)
    .PasteSpecial Paste:=xlPasteValues
End With



'*****************************************************************************************

'*****************************************************************************************
'Molds-11
    Sheets("Active Run").Range("D10:F10").Copy
        With Sheets("11A Run Data").Range("E" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("G10:I10").Copy
        With Sheets("11B Run Data").Range("E" & Rows.Count).End(xlUp).Offset(1)
             .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Molds-12
    Sheets("Active Run").Range("K10:M10").Copy
        With Sheets("12A Run Data").Range("E" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("N10:P10").Copy
        With Sheets("12B Run Data").Range("E" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Molds-13
    Sheets("Active Run").Range("R10:T10").Copy
        With Sheets("13A Run Data").Range("E" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("U10:W10").Copy
        With Sheets("13B Run Data").Range("E" & Rows.Count).End(xlUp).Offset(1)
          .PasteSpecial Paste:=xlPasteValues
        End With

'*****************************************************************************************

'*****************************************************************************************
'Blowheads-11
    Sheets("Active Run").Range("D11:F11").Copy
        With Sheets("11A Run Data").Range("H" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("G11:I11").Copy
        With Sheets("11B Run Data").Range("H" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Blowheads-12
    Sheets("Active Run").Range("K11:M11").Copy
        With Sheets("12A Run Data").Range("H" & Rows.Count).End(xlUp).Offset(1)
           .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("N11:O11").Copy
        With Sheets("12B Run Data").Range("H" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Blowheads-13
    Sheets("Active Run").Range("R11:T11").Copy
        With Sheets("13A Run Data").Range("H" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("U11:W11").Copy
        With Sheets("13B Run Data").Range("H" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With

'*****************************************************************************************

'*****************************************************************************************
'Blanks-11
    Sheets("Active Run").Range("D12:F12").Copy
        With Sheets("11A Run Data").Range("K" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("G12:I12").Copy
        With Sheets("11B Run Data").Range("K" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Blanks-12
    Sheets("Active Run").Range("K12:M12").Copy
        With Sheets("12A Run Data").Range("K" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("N12:P12").Copy
        With Sheets("12B Run Data").Range("K" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Blanks-13
    Sheets("Active Run").Range("R12:T12").Copy
        With Sheets("13A Run Data").Range("K" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("U12:W12").Copy
        With Sheets("13B Run Data").Range("K" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With

'*****************************************************************************************

'*****************************************************************************************

'Rings-11
    Sheets("Active Run").Range("D13:F13").Copy
        With Sheets("11A Run Data").Range("N" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("G13:I13").Copy
        With Sheets("11B Run Data").Range("N" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Rings-12
    Sheets("Active Run").Range("K13:M13").Copy
        With Sheets("12A Run Data").Range("N" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("N13:P13").Copy
        With Sheets("12B Run Data").Range("N" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Rings-13
    Sheets("Active Run").Range("R13:T13").Copy
        With Sheets("13A Run Data").Range("N" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("U13:W13").Copy
        With Sheets("13B Run Data").Range("N" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With

'*****************************************************************************************

'*****************************************************************************************

'Guides-11
    Sheets("Active Run").Range("D14:F14").Copy
        With Sheets("11A Run Data").Range("Q" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("G14:I14").Copy
        With Sheets("11B Run Data").Range("Q" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Guides-12
    Sheets("Active Run").Range("K14:M14").Copy
        With Sheets("12A Run Data").Range("Q" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("N14:P14").Copy
        With Sheets("12B Run Data").Range("Q" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Guides-13
    Sheets("Active Run").Range("R14:T14").Copy
        With Sheets("13A Run Data").Range("Q" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("U14:W14").Copy
        With Sheets("13B Run Data").Range("Q" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With

'*****************************************************************************************

'*****************************************************************************************

'Baffles-11
    Sheets("Active Run").Range("D15:F15").Copy
        With Sheets("11A Run Data").Range("T" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("G15:I15").Copy
        With Sheets("11B Run Data").Range("T" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Baffles-12
    Sheets("Active Run").Range("K15:M15").Copy
        With Sheets("12A Run Data").Range("T" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("N15:P15").Copy
        With Sheets("12B Run Data").Range("T" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Baffles-13
    Sheets("Active Run").Range("R15:T15").Copy
        With Sheets("13A Run Data").Range("T" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("U15:W15").Copy
        With Sheets("13B Run Data").Range("T" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With

'*****************************************************************************************

'*****************************************************************************************

'Plungers-11
    Sheets("Active Run").Range("D16:F16").Copy
        With Sheets("11A Run Data").Range("W" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("G16:I16").Copy
        With Sheets("11B Run Data").Range("W" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Plungers-12
    Sheets("Active Run").Range("K16:M16").Copy
        With Sheets("12A Run Data").Range("W" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("N16:P16").Copy
        With Sheets("12B Run Data").Range("W" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Plungers-13
    Sheets("Active Run").Range("R16:T16").Copy
        With Sheets("13A Run Data").Range("W" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("U16:W16").Copy
        With Sheets("13B Run Data").Range("W" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With

'*****************************************************************************************

'*****************************************************************************************

'Thimbles-11
    Sheets("Active Run").Range("D17:F17").Copy
        With Sheets("11A Run Data").Range("Z" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("G17:I17").Copy
        With Sheets("11B Run Data").Range("Z" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Thimbles-12
    Sheets("Active Run").Range("K17:M17").Copy
        With Sheets("12A Run Data").Range("Z" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("N17:P17").Copy
        With Sheets("12B Run Data").Range("Z" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Thimbles-13
    Sheets("Active Run").Range("R17:T17").Copy
        With Sheets("13A Run Data").Range("Z" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("U17:W17").Copy
        With Sheets("13B Run Data").Range("Z" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With

'*****************************************************************************************

'*****************************************************************************************

'Funnels-11
    Sheets("Active Run").Range("D18:F18").Copy
        With Sheets("11A Run Data").Range("AC" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("G18:I18").Copy
        With Sheets("11B Run Data").Range("AC" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Funnels-12
    Sheets("Active Run").Range("K18:M18").Copy
        With Sheets("12A Run Data").Range("AC" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("N18:P18").Copy
        With Sheets("12B Run Data").Range("AC" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Funnels-13
    Sheets("Active Run").Range("R18:T18").Copy
        With Sheets("13A Run Data").Range("AC" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("U18:W18").Copy
        With Sheets("13B Run Data").Range("AC" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With

'*****************************************************************************************

'*****************************************************************************************
'Bottom Plates-11
    Sheets("Active Run").Range("D19:F19").Copy
        With Sheets("11A Run Data").Range("AF" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("G19:I19").Copy
        With Sheets("11B Run Data").Range("AF" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Bottom Plates-12
    Sheets("Active Run").Range("K19:M19").Copy
        With Sheets("12A Run Data").Range("AF" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("N19:P19").Copy
        With Sheets("12B Run Data").Range("AF" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
'*****************************************************************************
'Bottom Plates-13
    Sheets("Active Run").Range("R19:T19").Copy
        With Sheets("13A Run Data").Range("AF" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With
    Sheets("Active Run").Range("U19:W19").Copy
        With Sheets("13B Run Data").Range("AF" & Rows.Count).End(xlUp).Offset(1)
            .PasteSpecial Paste:=xlPasteValues
        End With

'*****************************************************************************************

'*****************************************************************************************


Sheets("Active Run").Range("D7") = ""
Sheets("Active Run").Range("R7") = "<Choose one>"
Sheets("Active Run").Range("D10:I19") = "0"
Sheets("Active Run").Range("K10:P19") = "0"
Sheets("Active Run").Range("R10:W19") = "0"

MsgBox "Form Cleared"


Else
MsgBox "Canceled."

End If

  Range("D10").Select
  Application.CutCopyMode = False
  
ActiveSheet.Protect "password"
Worksheets("11A Run Data").Protect "password"
Worksheets("11B Run Data").Protect "password"
Worksheets("12A Run Data").Protect "password"
Worksheets("12B Run Data").Protect "password"
Worksheets("13A Run Data").Protect "password"
Worksheets("13B Run Data").Protect "password"

End Sub

uj5u.com熱心網友回復：

依次處理每個作業表。回圈遍歷源行 10 到 19 并計算目標列。

Private Sub CommandButton3_Click()

    Const PWD = "password"

    'Time check
    Sheets("Active Run").Activate
    If IsEmpty(Range("D7").Value) = True Then
        MsgBox "No Time Stamp!", vbOKCancel   vbCritical
        Exit Sub
    End If

    'name check
    If InStr(1, (Range("R7").Value), "<Choose one>") > 0 Then
        MsgBox "Select a name from the pull-down menu", vbOKCancel   vbCritical
        Exit Sub
    End If
    
    If MsgBox("This will clear all data!" & vbCr & "Do you wish to proceed?", _
       vbOKCancel   vbExclamation, "Warning!") <> vbOK Then
       Exit Sub
    End If

    Dim ws As Worksheet, wsAR As Worksheet
    Dim ar(1 To 1, 1 To 3), c as Long, r As Long
    Dim lastrow As Long, n As Long, d As Long, k As Long
    Dim rngSrc As Range, rngDest As Range
    
    Set wsAR = Sheets("Active Run")
    With wsAR
        ar(1, 1) = .Range("R7").Value2 ' name
        ar(1, 2) = .Range("AC8").Value2 ' date
        ar(1, 3) = .Range("AD8").Value2 ' time
    End With

    ' sheets 11A,11B,12A,12B,13A,13B
    Application.ScreenUpdating = False
    For n = 11 To 13
        For k = 0 To 1
            Set ws = Sheets(n & Chr(65   k) & " Run Data") 'A is chr(65)
            ws.Unprotect PWD
            lastrow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row   1
            ws.Range("A" & lastrow).Resize(, 3) = ar
            
            ' calc col 11A=D(4) 11B=G(7) 12A=K(11) 12B=N(14) 13A=R(18) 13B=U(21)
            c = 4   (n - 11) * 7   (k * 3)
            For r = 10 To 19
                ' dest cols 10=E(5) 11=H(8) 12=K(11) 13=M(14) etc
                d = 5   (r - 10) * 3
                Set rngSrc = wsAR.Cells(r, c).Resize(, 3)
                Set rngDest = ws.Cells(lastrow, d).Resize(, 3)
                rngDest.Value2 = rngSrc.Value2
                'Debug.Print ws.Name, r, rngSrc.Address, rngDest.Address
            Next
            ws.Protect PWD
        Next
    Next

    With wsAR
        .Unprotect PWD
        .Range("D7") = ""
        .Range("R7") = "<Choose one>"
        .Range("D10:I19,K10:P19,R10:W19") = "0"
        .Protect PWD
        MsgBox "Form Cleared"
    End With
    Application.ScreenUpdating = True
    
    MsgBox "Done", vbInformation
End Sub

轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/375573.html

標籤：擅长 vba

上一篇：僅將單元格AC7中的VALUES復制到T7，直到資料集結束

下一篇：將多個excel電子表格中的特定單元格讀取到單個pandas資料框中

標籤雲
其他(157675) Python(38076) JavaScript(25376) Java(17977) C(15215) 區塊鏈(8255) C＃(7972) AI(7469) 爪哇(7425) MySQL(7132) html(6777) 基礎類(6313) sql(6102) 熊猫(6058) PHP(5869) 数组(5741) R(5409) Linux(5327) 反应(5209) 腳本語言(PerlPython)(5129) 非技術區(4971) Android(4554) 数据框(4311) css(4259) 节点.js(4032) C語言(3288) json(3245) 列表(3129) 扑(3119) C++語言(3117) 安卓(2998) 打字稿(2995) VBA(2789) Java相關(2746) 疑難問題(2699) 细绳(2522) 單片機工控(2479) iOS(2429) ASP.NET(2402) MongoDB(2323) 麻木的(2285) 正则表达式(2254) 字典(2211) 循环(2198) 迅速(2185) 擅长(2169) 镖(2155) 功能(1967) .NET技术(1958) Web開發(1951) python-3.x(1918) HtmlCss(1915) 弹簧靴(1913) C++(1909) xml(1889) PostgreSQL(1872) .NETCore(1853) 谷歌表格(1846) Unity3D(1843) for循环(1842)

熱門瀏覽
  • CA和證書

    1、在 CentOS7 中使用 gpg 創建 RSA 非對稱密鑰對 gpg --gen-key #Centos上生成公鑰/密鑰對（存放在家目錄.gnupg/） 2、將 CentOS7 匯出的公鑰，拷貝到 CentOS8 中，在 CentOS8 中使用 CentOS7 的公鑰加密一個檔案 gpg -a ......

    uj5u.com 2020-09-10 00:09:53 more
  • Kubernetes K8S之資源控制器Job和CronJob詳解

    Kubernetes的資源控制器Job和CronJob詳解與示例 ......

    uj5u.com 2020-09-10 00:10:45 more
  • VMware下安裝CentOS

    VMware下安裝CentOS 一、軟硬體準備 1 Centos鏡像準備 1.1 CentOS鏡像下載地址 下載地址 1.2 CentOS鏡像下載程序 點擊下載地址進入如下圖的網站，選擇需要下載的版本，這里選擇的是Centos8，點擊如圖所示。 決定選擇Centos8后，選擇想要的鏡像源進行下載，此 ......

    uj5u.com 2020-09-10 00:12:10 more
  • 如何使用Grep命令查找多個字串

    如何使用Grep 命令查找多個字串 大家好，我是良許！ 今天向大家介紹一個非常有用的技巧，那就是使用 grep 命令查找多個字串。 簡單介紹一下，grep 命令可以理解為是一個功能強大的命令列工具，可以用它在一個或多個輸入檔案中搜索與正則運算式相匹配的文本，然后再將每個匹配的文本用標準輸出的格式 ......

    uj5u.com 2020-09-10 00:12:28 more
  • git配置http代理

    git配置http代理 經常遇到克隆 github 慢的問題，這里記錄一下幾種配置 git 代理的方法，解決 clone github 過慢。 目錄 git配置代理 git單獨配置github代理 git配置全域代理 配置終端環境變數 git配置代理 主要使用 git config 命令 git單獨 ......

    uj5u.com 2020-09-10 00:12:33 more
  • Linux npm install 裝包時提示Error EACCES permission denied解

    npm install 裝包時提示Error EACCES permission denied解決辦法 ......

    uj5u.com 2020-09-10 00:12:53 more
  • Centos 7下安裝nginx，使用yum install nginx，提示沒有可用的軟體包

    Centos 7下安裝nginx，使用yum install nginx，提示沒有可用的軟體包。 18 (flaskApi) [root@67 flaskDemo]# yum -y install nginx 19 已加載插件：fastestmirror, langpacks 20 Loading ......

    uj5u.com 2020-09-10 00:13:13 more
  • Linux查看服務器暴力破解ssh IP

    在公網的服務器上經常遇到別人爆破你服務器的22埠，用來挖礦或者干其他嘿嘿嘿的事情~ 這種情況下正確的做法是： 修改默認ssh的22埠 使用設定密鑰登錄或者白名單ip登錄 建議服務器密碼為復雜密碼 創建普通用戶登錄服務器（root權限過大） 建立堡壘機，實作統一管理服務器 統計爆破IP [root ......

    uj5u.com 2020-09-10 00:13:17 more
  • CentOS 7系統常見快捷鍵操作方式

    Linux系統中一些常見的快捷方式，可有效提高操作效率，在某些時刻也能避免操作失誤帶來的問題。 ......

    uj5u.com 2020-09-10 00:13:31 more
  • CentOS 7作業系統目錄結構介紹

    作業系統存在著大量的資料檔案資訊，相應檔案資訊會存在于系統相應目錄中，為了更好的管理資料資訊，會將系統進行一些目錄規劃，不同目錄存放不同的資源。 ......

    uj5u.com 2020-09-10 00:13:35 more
最新发布
  • vim的常用命令

    Vim的6種基本模式 1. 普通模式在普通模式中，用的編輯器命令，比如移動游標，洗掉文本等等。這也是Vim啟動后的默認模式。這正好和許多新用戶期待的操作方式相反（大多數編輯器默認模式為插入模式）。 2. 插入模式在這個模式中，大多數按鍵都會向文本緩沖中插入文本。大多數新用戶希望文本編輯器編輯程序中一 ......

    uj5u.com 2023-04-20 08:43:21 more
  • vim的常用命令

    Vim的6種基本模式 1. 普通模式在普通模式中，用的編輯器命令，比如移動游標，洗掉文本等等。這也是Vim啟動后的默認模式。這正好和許多新用戶期待的操作方式相反（大多數編輯器默認模式為插入模式）。 2. 插入模式在這個模式中，大多數按鍵都會向文本緩沖中插入文本。大多數新用戶希望文本編輯器編輯程序中一 ......

    uj5u.com 2023-04-20 08:42:36 more
  • docker學習

    ###Docker概述 真實專案部署環境可能非常復雜，傳統發布專案一個只需要一個jar包，運行環境需要單獨部署。而通過Docker可將jar包和相關環境（如jdk，redis，Hadoop...）等打包到docker鏡像里，將鏡像發布到Docker倉庫，部署時下載發布的鏡像，直接運行發布的鏡像即可。 ......

    uj5u.com 2023-04-19 09:26:53 more
  • 設定Windows主機的瀏覽器為wls2的默認瀏覽器

    這里以Chrome為例。 1. 準備作業 wsl是可以使用Windows主機上安裝的exe程式，出于安全考慮，默認情況下改功能是無法使用。要使用的話，終端需要以管理員權限啟動。 我這里以Windows Terminal為例，介紹如何默認使用管理員權限打開終端，具體操作如下圖所示： 2. 操作 wsl ......

    uj5u.com 2023-04-19 09:25:49 more
  • docker學習

    ###Docker概述 真實專案部署環境可能非常復雜，傳統發布專案一個只需要一個jar包，運行環境需要單獨部署。而通過Docker可將jar包和相關環境（如jdk，redis，Hadoop...）等打包到docker鏡像里，將鏡像發布到Docker倉庫，部署時下載發布的鏡像，直接運行發布的鏡像即可。 ......

    uj5u.com 2023-04-19 09:19:04 more
  • Linux學習筆記

    IP地址和主機名 IP地址 ifconfig可以用來查詢本機的IP地址，如果不能使用，可以通過install net-tools安裝。 Centos系統下ens33表示主網卡；inet后表示IP地址；lo表示本地回環網卡； 127.0.0.1表示代指本機；0.0.0.0可以用于代指本機，同時在放行設 ......

    uj5u.com 2023-04-18 06:52:01 more
  • 解決linux系統的kdump服務無法啟動的問題

    問題：專案麒麟系統服務器的kdump服務無法啟動，沒有相關日志無法定位問題。 1、查看服務狀態是關閉的，重啟系統也無法啟動 systemctl status kdump 2、修改grub引數，修改“crashkernel”為“512M（有的機器數值太大太小都會導致報錯，建議從128M開始試，或者加個 ......

    uj5u.com 2023-04-12 09:59:50 more
  • 解決linux系統的kdump服務無法啟動的問題

    問題：專案麒麟系統服務器的kdump服務無法啟動，沒有相關日志無法定位問題。 1、查看服務狀態是關閉的，重啟系統也無法啟動 systemctl status kdump 2、修改grub引數，修改“crashkernel”為“512M（有的機器數值太大太小都會導致報錯，建議從128M開始試，或者加個 ......

    uj5u.com 2023-04-12 09:59:01 more
  • 你是不是暴露了？

    作者：袁首京 原創文章，轉載時請保留此宣告，并給出原文連接。 如果您是計算機相關從業人員，那么應該經歷不止一次網路安全專項檢查了，你肯定是收到過資訊系統技術檢測報告，要求你加強風險監測，確保你提供的系統服務堅實可靠了。 沒檢測到問題還好，檢測到問題的話，有些處理起來還是挺麻煩的，尤其是線上正在運行的 ......

    uj5u.com 2023-04-05 16:52:56 more
  • 細節拉滿，80 張圖帶你一步一步推演 slab 記憶體池的設計與實作

    1. 前文回顧 在之前的幾篇記憶體管理系列文章中，筆者帶大家從宏觀角度完整地梳理了一遍 Linux 記憶體分配的整個鏈路，本文的主題依然是記憶體分配，這一次我們會從微觀的角度來探秘一下 Linux 內核中用于零散小記憶體塊分配的記憶體池 —— slab 分配器。 在本小節中，筆者還是按照以往的風格先帶大家簡單 ......

    uj5u.com 2023-04-05 16:44:11 more

Copyright © 2010-2020 有解無憂