小编And*_*Ion的帖子

我有一个组合框,我在Excel工作表中添加了一些东西.我只想要唯一的记录,我希望在切换到此页面时更新它们.为此我使用了以下代码:

Private Sub MultiPage1_Change()
Dim Rand As Long
Dim ws As Worksheet
Set ws = Worksheets("BD_IR")
Dim i As Long
Rand = 3
Do While ws.Cells(Rand, 3).Value <> "" And Rand < 65536
    If Me.repereche.ListCount <> 0 Then
        For i = 0 To (Me.repereche.ListCount)
        If Me.repereche.List(i, 0) <> Mid(ws.Cells(Rand, 3).Value, 4, 10) Then
            Me.Controls("repereche").AddItem Mid(ws.Cells(Rand, 3).Value, 4, 10)
        End If
        Next i
    ElseIf Me.repereche.ListCount = 0 Then
        Me.Controls("repereche").AddItem Mid(ws.Cells(Rand, 3).Value, 4, 10)
    End If
    Rand = Rand + 1
Loop …

我对一段代码有些问题.必须选择范围时出错

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim valrand As Long
If Intersect(Target, ActiveCell) = "Insert line" Then
valrand = ActiveCell.Row
    If Worksheets("IR").Cells(valrand, 18).Value <> 5 Then
        Sheets("Format").Select
        MsgBox ("Format")
        Range("A13:N13").Select 'here's the error
        Selection.Copy

        Sheets("IR").Select
        Range("A" & valrand + 2 + Worksheets("IR").Cells(12, 18) & ":N" & valrand + 2 + Worksheets("IR").Cells(12, 18)).Select
        Selection.Insert Shift:=xlDown

        Range("A38:N38").Select
        Application.CutCopyMode = False
        Selection.Delete Shift:=xlUp

        Range("A5").Select
        contor = Worksheets("IR").Cells(12, 18).Value + 1
        Worksheets("IR").Cells(12, 18).Value = contor
    End If
End If
End Sub

在哪里我把commet"这里的错误"它给了我"Range类的选择方法失败"我做错了什么？通常这段代码在我添加到SelectionChange代码块之前有效.谢谢!

我有一个新手问题!我想做这样的事情:

puts Example.new([a,b,c])

结果是

=> a,b,c

我试过这样的事情:

class Example
  attr_accessor :something
  def initialize(something)
  @something = something
  puts @something
  end
end

它有效,但不是我想要的!谢谢!

这就是我想要做的。我的标题每次有人使用该应用程序时都会更改。标题是一个数字...现在看起来像一个普通数字123456 ...我想每3位添加“，”，但我真的不知道该怎么做，因为数字没有相同每次的位数...（我希望它是123,456，而不是123456或1,234,567 ...等）。谢谢！