1. 全栈程序员必看首页

EXCEL宏编程纪念

全栈程序员-站长 • • 未分类 • 阅读 40

EXCEL宏编程纪念       不久前被叫去编写宏,这EXCEL宏真是麻烦! 可能以后不会再遇到有编写宏的经历了,故而贴出来以做个纪念: Subdirect_Price()query_dir_volume宏由颜清国编写，时间:2007-4-9定义变量DimcRowsAsInteger总行数DimcColumnsAsInteger总列数DimHEADERCOLORINDE

大家好，又见面了，我是你们的朋友全栈君。

        不久前被叫去编写宏,这EXCEL宏真是麻烦! 可能以后不会再遇到有编写宏的经历了,故而贴出来以做个纪念:

 Sub direct_Price()
‘
‘query_dir_volume
‘宏由 颜清国编写，时间: 2007-4-9
‘
”定义变量
Dim cRows As Integer ‘总行数
Dim cColumns As Integer ‘总列数
Dim HEADERCOLORINDEX As Integer  ‘表头的背景色
Dim cTemp As Integer  ‘临时计数
Dim sTempString As String  ‘临时字符串变量
Dim i As Integer  ‘临时计数
Dim j As Integer  ‘临时计数
Dim rowIndex As Integer  ‘临时指示处理到哪里
Dim colIndex As Integer  ‘临时指示处理到哪里
Dim tempRndColor As Integer  ‘临时生成的颜色
Dim TABLENAME As String  ‘待处理的表名

Dim colorIndex As String  ‘颜色索引名字

”””””””””””””””””””””””

‘表头的背景色
HEADERCOLORINDEX = 15

colorIndex = 36 ‘颜色从33开始是比较浅的颜色

TABLENAME = “direct_Price”
‘关闭所有弹出的警告消息
Application.DisplayAlerts = False

‘设置需要处理的单元表
Sheets(TABLENAME).Select

 ‘取单元表的总列数与总行数
cRows = Sheets(TABLENAME).UsedRange.Rows.Count
cColumns = Sheets(TABLENAME).UsedRange.Columns.Count
   
”””””””””””””””””””””””

   
     ‘选择所有的单元格
 Range(Cells(1, 1), Cells(cRows, cColumns)).Select
 
   ‘设置该表中所有单元行高为11.25
 Selection.RowHeight = 11.25
 

   
‘设置该表中所有单元行高为11.25
 Selection.RowHeight = 11.25
 
 ‘设置所有的边框
 Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
   
   ‘并且拆分所有的单元格
 With Selection
        .MergeCells = False ‘拆分单格
 End With
 
 Columns(“C:C”).Select
 Selection.Insert Shift:=xlToRight
 
  ‘删除第一列,注意这里必须先拆分单格，再删除第一列，否则一次就会把合并单元格所在列全部删除
 Range(Cells(1, 1), Cells(1, 1)).Select
 Selection.EntireColumn.Delete
 ‘Selection.EntireColumn.Delete
 
   ‘向表头添加一行
  Rows(“1:1”).Select
  Selection.Insert
 
 
Columns(“A:A”).Select
Selection.ColumnWidth = 9.29

Columns(“B:B”).Select
Selection.ColumnWidth = 6.71

Columns(“C:C”).Select
Selection.ColumnWidth = 15.29

Columns(“D:D”).Select
Selection.ColumnWidth = 29.86

Columns(“E:E”).Select
Selection.ColumnWidth = 12.29

Columns(“F:F”).Select
Selection.ColumnWidth = 12.29

   
    ”””””””””””””””””’设定单元格A1:A2””””””””””
     ‘合并A1:A2单元格
    Range(“A1:A2”).Select
   
    ‘将数据写回
     With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
   
    ‘往该单元格中写入Usage_Var
    ActiveCell.FormulaR1C1 = “Price”
   
   
    ‘设置该单元格字体格式
    With ActiveCell.Characters(Start:=1, Length:=5).Font
        .Name = “Arial”
        .FontStyle = “加粗 倾斜”
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = 2
    End With
   
    ‘单元格设定边框
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = 56
    End With
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
   
    With Selection.Interior
        .colorIndex = 5
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
   
  ””””””””””””””’设定头两行的内部样式”””””””””””’
    
     Range(“B1:B2”).Select
     Selection.Merge
   
     Range(“C1:C2”).Select
    Selection.Merge
    
     Range(“D1:D2”).Select
     Selection.Merge
    
    
    Range(“B1:D2”).Select
   
  ‘设置头两行行高为11.25
   Selection.RowHeight = 14.25
  
    With Selection.Font
        .Name = “Arial”
        .FontStyle = “加粗”
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = xlAutomatic
    End With
   
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
   
    With Selection.Interior
        .colorIndex = HEADERCOLORINDEX
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
   
   
    Range(“B1:B2”).Select
    ActiveCell.FormulaR1C1 = “Type”
    With ActiveCell.Characters(Start:=1, Length:=4).Font
        .Name = “Arial”
        .FontStyle = “加粗”
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = 5
    End With
   
   
     Range(“E1:F1”).Select
         With Selection.Font
        .Name = “Arial”
        .FontStyle = “加粗”
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = 5
    End With
   With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
   
    With Selection.Interior
        .colorIndex = HEADERCOLORINDEX
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
     ActiveCell.FormulaR1C1 = “Price”
    
    Range(“E2:F2”).Select
   
  ‘设置头两行行高为11.25
   Selection.RowHeight = 14.25
  
    With Selection.Font
        .Name = “Arial”
        .FontStyle = “加粗”
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = xlAutomatic
    End With
   
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
   
    With Selection.Interior
        .colorIndex = HEADERCOLORINDEX
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
   
   
    ‘加第一二行边框
    Range(“A1:F2”).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
  
  
    ‘去掉第三行的:号
    ‘sTempString = Right(Cells(3, 1), Len(Cells(3, 1)) – 3)
    ‘ActiveCell.FormulaR1C1 = sTempString
   
    i = 2
    j = 1
    
   ‘外层循环判断是否都合并完成,这里插入了一行，加1
   While i <= cRows
   ‘ i = i + 1
   
     Range(Cells(i + 1, j), Cells(i + 1, j)).Select
    
    ‘去掉分类行中的:号
    If (Len(Cells(i + 1, j)) >= 3) Then
      ”””””””如果是分格的界限””””””””””””””””””
      If (Left(Cells(i + 1, j), 3) = ” : “) Then
     
          Range(Cells(i + 1, j), Cells(i + 1, cColumns)).Select
         
        ‘对第三行进行设定
        ‘设置头两行行高为11.25
        Selection.RowHeight = 18
      With Selection.Interior
         .colorIndex = 2
         .Pattern = xlSolid
         .PatternColorIndex = xlAutomatic
       End With
       ‘合并前两格
       ‘先将其合并
      With Selection
        .HorizontalAlignment = xlLeft ‘靠左对齐
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
       End With
    ‘合并
     Selection.Merge
    
    ‘对其设定字体风格
    With Selection.Font
        .Name = “Arial”
        .FontStyle = “加粗 倾斜”
        .Size = 9
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = 3
    End With
   
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
   
        sTempString = Right(Cells(i + 1, j), Len(Cells(i + 1, j)) – 3)
        ActiveCell.FormulaR1C1 = sTempString
        i = i + 1
      End If
    End If
 
 
    i = i + 1
   
    ‘加1后判断是否到了表尾，没有继续合并处理
    ‘If (i <= cRows + 1) Then
   
     rowIndex = i
     ‘取出Cells(i, j)的内容
    sTempString = Cells(i, j)
   
    ‘循环判断下一个单元格是否和上一个单元格相等，不是则表示到此该合并
   While sTempString = Cells(i + 1, j) And i <= cRows
     i = i + 1
   Wend
  
  
   ””””””””””””””””””设置第一列””””””””””””””””””””
   ‘跳出循环表示已经到此该将rowIndex 和 i行合并
   Range(Cells(rowIndex, j), Cells(i, j)).Select
   Selection.Merge
 
    ‘将原来内容填充进来
    ActiveCell.FormulaR1C1 = sTempString
   ‘设合并后的单元格的边框
    With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = True
    End With
    Selection.Font.FontStyle = “加粗”
        
     ””””””””””””””””””设置第一列结束””””””””””””””””””””

     ”””””””””””””””””””’设置第二列””””””””””””””””””””””’
     Range(Cells(rowIndex, j + 1), Cells(i, j + 1)).Select
          ‘设置字体
    
     With Selection.Font
     .Name = “Arial”
     .FontStyle = “加粗”
     .Size = 8
     .Strikethrough = False
     .Superscript = False
     .Subscript = False
     .OutlineFont = False
     .Shadow = False
     .Underline = xlUnderlineStyleNone
     .colorIndex = 5
     End With
   
    With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .WrapText = True
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
    End With
   
     Selection.Borders(xlDiagonalDown).LineStyle = xlNone
     Selection.Borders(xlDiagonalUp).LineStyle = xlNone
     With Selection.Borders(xlEdgeLeft)
         .LineStyle = xlContinuous
         .Weight = xlThin
         .colorIndex = 56
     End With
     With Selection.Borders(xlEdgeTop)
         .LineStyle = xlContinuous
         .Weight = xlThin
         .colorIndex = 56
     End With
     With Selection.Borders(xlEdgeBottom)
         .LineStyle = xlContinuous
         .Weight = xlThin
         .colorIndex = 56
     End With
     With Selection.Borders(xlEdgeRight)
         .LineStyle = xlContinuous
         .Weight = xlThin
         .colorIndex = 56
     End With
     Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    
    
    
””””””””””””””’设置第二列结束””””””””””””””””””””””’
  
””””””””””””’修改原来单元格的数据格式””””””””””””””””
””””””””””””首先向任一无用的单元格写入数据
   Range(Cells(cRows + 2, cColumns), Cells(cRows + 2, cColumns)).Select
   ActiveCell.FormulaR1C1 = “1”
   ‘将其格式拷贝
   Selection.Copy
  ‘复制格式
   Range(Cells(rowIndex, j + 4), Cells(i, cColumns)).Select
   Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
   SkipBlanks:=False, Transpose:=False
   Selection.NumberFormatLocal = “_*#,##0.00000”
   ‘清除原来内容
   Range(Cells(cRows + 2, cColumns), Cells(cRows + 2, cColumns)).Select
   Selection.ClearContents

””””””””””””设定数据格式完成”””””””””””””””””””””””

 ”””””””””””””””””””’统一设置该区域的颜色”””””””””””””””””””””””
     ‘设置内部填充
     Range(Cells(rowIndex, j), Cells(i, cColumns)).Select
    
     colorIndex = colorIndex + 1
     If colorIndex > 39 Then
        colorIndex = 33
    End If
   
     With Selection.Interior
             .colorIndex = colorIndex ‘颜色
             .Pattern = xlSolid
             .PatternColorIndex = xlAutomatic
     End With
 ”””””””””””””””””统一设置该区域的颜色结束”””””””””””””””””””””””
 

””””””””””””””’设置剩余的列””””””””””””””””””””””’
    Range(Cells(rowIndex, j + 2), Cells(i, cColumns)).Select
   
    ‘设置字体
   With Selection.Font
      .Name = “Arial”
      .FontStyle = “常规”
      .Size = 8
      .Strikethrough = False
       .Superscript = False
      .Subscript = False
     .OutlineFont = False
       .Shadow = False
     .Underline = xlUnderlineStyleNone
     .colorIndex = xlAutomatic
     End With
    
    ‘设置第6列
    Range(Cells(rowIndex, j + 4), Cells(i, j + 5)).Select
          ‘设置字体
     With Selection.Font
      .Name = “Arial”
      .FontStyle = “常规”
      .Size = 8
      .Strikethrough = False
       .Superscript = False
      .Subscript = False
     .OutlineFont = False
       .Shadow = False
     .Underline = xlUnderlineStyleNone
     .colorIndex = 3
     End With
    
    
         
    ””””””””””””””’设置全部的边框””””””””””””””””””””””’
    Range(Cells(rowIndex, j), Cells(i, cColumns)).Select
    ‘设置边框
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
      ‘  .LineStyle = xlContinuous
        .Weight = xlThin
       ‘ .colorIndex = xlAutomatic
    End With
Wend

 Range(Cells(rowIndex – 1, 1), Cells(rowIndex – 1, cColumns)).Select
 Selection.MergeCells = False
 
 
 Range(Cells(rowIndex – 1, cColumns – 1), Cells(rowIndex – 1, cColumns – 1)).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection.Font
        .Name = “Arial”
        .FontStyle = “加粗”
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = xlAutomatic
    End With
    With Selection.Interior
        .colorIndex = 15
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    ActiveCell.FormulaR1C1 = “Average”
    With ActiveCell.Characters(Start:=1, Length:=7).Font
        .Name = “Arial”
        .FontStyle = “加粗”
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = xlAutomatic
    End With
   
    Range(Cells(rowIndex – 1, cColumns), Cells(rowIndex – 1, cColumns)).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection.Font
        .Name = “Arial”
        .FontStyle = “加粗”
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = xlAutomatic
    End With
    With Selection.Interior
        .colorIndex = 15
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    ActiveCell.FormulaR1C1 = “Average”
    With ActiveCell.Characters(Start:=1, Length:=7).Font
        .Name = “Arial”
        .FontStyle = “加粗”
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .colorIndex = xlAutomatic
    End With
    
    
    Range(Cells(rowIndex – 1, cColumns – 1), Cells(rowIndex – 1, cColumns)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .colorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
       ‘ .LineStyle = xlContinuous
        .Weight = xlThin
       ‘ .colorIndex = xlAutomatic
    End With
   
End Sub

 

版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请联系我们举报，一经查实，本站将立刻删除。

发布者：全栈程序员-站长，转载请注明出处：https://javaforall.net/137753.html原文链接：https://javaforall.net

赞 (0)
全栈程序员-站长的头像全栈程序员-站长
0 0


相关推荐

  • modbus rs485协议_串行通信和并行通信的区别

    modbus rs485协议_串行通信和并行通信的区别

    modbus rs485协议_串行通信和并行通信的区别转自：http://www.51hei.com/bbs/dpj-23230-1.html在工业控制、电力通讯、智能仪表等领域，通常情况下是采用串口通信的方式进行数据交换。最初采用的方式是RS232接

    全栈程序员-站长的头像 全栈程序员-站长
    2022年8月5日
    5
  • .NET中pdb文件的作用是什么「建议收藏」

    .NET中pdb文件的作用是什么「建议收藏」

    .NET中pdb文件的作用是什么「建议收藏」.PDB是ProgramDatabase的缩写,全称为“程序数据库”文件。我们使用它（更确切的说是看到它被应用）大多数场景是调试应用程序。目前我们对.PDB文件的普遍认知是它存储了被编译文件的调试信息，作为符号文件存在。 PDB文件寻路 如果我们观察VS启动调试加载模块和符号文件的过程，会发现它通常会从可执行文件或者DLL文件的相同目录中加载符号文件。这正是调试器寻找PDB文件的

    全栈程序员-站长的头像 全栈程序员-站长
    2022年5月5日
    115
  • linux idea 激活码【2022.01最新】 idea

    linux idea 激活码【2022.01最新】

    (linux idea 激活码)最近有小伙伴私信我，问我这边有没有免费的intellijIdea的激活码，然后我将全栈君台教程分享给他了。激活成功之后他一直表示感谢，哈哈~https://javaforall.net/100143.htmlIntelliJ2021最新激活注册码，破解教程可免费永久激活，亲测有效，上面是详细链接哦~0HKL…

    全栈程序员-站长的头像 全栈程序员-站长
    2022年3月31日
    393
  • 怎么将sql文件导入数据库_mysql导入sql文件命令

    怎么将sql文件导入数据库_mysql导入sql文件命令

    怎么将sql文件导入数据库_mysql导入sql文件命令打开命令提示符行输入以下命令进入本地数据库2.创建数据库新建一个新数据库用来导入.sql数据3.导入.sql文件在导入.sql文件之前，设置一下编码模式，防止出现中文乱码的情况（第一次导入就出现了中文乱码，所以中添加一步防止出现乱码情况）。以上就是将.sql文件导入数据库的全部操作，这是打开新建的数据库就能看到导入进去的表内容。…

    全栈程序员-站长的头像 全栈程序员-站长
    2022年10月2日
    3
  • 关于ms17010渗透

    关于ms17010渗透

    关于ms17010渗透今天来说一下ms17010渗透，大家都知道在2017爆发出来了永恒之蓝病毒，导致比特币严重涨价（为啥我没屯几个，这可能就是我穷的的原因吧），永恒之蓝的漏洞版本名称也被称之为ms17_010今天就来详细和大家讲一下靶机：windows7家庭普通版（感谢猫的薛定谔大佬的靶机镜像）百度云下载传送门提取码：6mus攻击机：kali4.14（emmm没给你们传百度云，自行百度下载吧）首先分别…

    全栈程序员-站长的头像 全栈程序员-站长
    2022年4月29日
    73
  • C语言的数组初始化「建议收藏」

    C语言的数组初始化「建议收藏」

    C语言的数组初始化「建议收藏」   这是很基础的东西,但基础的重要性不言而喻,我敢肯定这个知识点我肯定曾经了解过,但现在,我不敢确定,由此可见纪录的重要性,这世界没有什么捷径,找对方向,然后不停重复.所以从今天开始,我会比较详细的纪录这些比较小的知识点,其实还是有不少有意思的地方的.   写这篇文章的起因在于>第七章新东西太多,看的我目不暇接,所以在网上找了些例子看,其中就有一个例子中出现了这样的语句: …

    全栈程序员-站长的头像 全栈程序员-站长
    2022年7月18日
    18

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

关注全栈程序员社区公众号