小编For*_* Ed的帖子

对于初学者来说,这个主题已经提出了很多问题.然而,我一直点击的所有语言都是VBA以外的语言,我不理解这些语言的语法.

当我进行谷歌搜索时,我发现这个答案看起来很有希望.AH FIDDLE STICKS!我刚刚意识到VB的答案,可能解释了为什么它不能在我的VBA中工作

情况

我有一个名为DimScale的变量,它是一个整数.我想创建一个名为DimName的字符串,它将以"mm-"开头,并跟随DimScale中带有前导0的整数,使得"mm-"后面的字符最少.

IF DimScale = 25
Then DimName = "mm-0025"

IF DimScale = 235
Then DimName = "mm-0235"

Note Dimscale >=1 and <= 9999

我试过了什么

Dim Dimscale as Integer
Dim Dimension_Style_Name as String

String.Format("{0:0000}", DimScale)

Dimension_Style_Name = DimScale$
Dimension_Style_Name.Format("{0:0000}", DimScale)

我已经阅读了要点,Dimscale转换为字符串,然后通过添加前导零的循环发送,直到字符串的长度等于我的情况下整数部分的4个字符.

我也看过IF的情况,其中IF Dimscale <10然后是"000"&如果Dimscale <100则是"00"等.

有没有办法像VBA中的VB方法一样？

我正在看一些VBA代码，它将按选项卡的顺序将显示的工作表更改为上一个或下一个工作表。

我发现了这个stackoverflow问题，该问题涉及添加箭头，但它更像一个领导箭头（图中的红色）。

我想从插入功能区->插图部分->形状下拉菜单中添加左或右箭头：

我使用的代码的嗅探是：

Dim l As Long
Dim t As Long

l = Range("O3").Left
t = Range("Q3").Top

Item_Estimate_Sheet.Shapes.AddConnector(msoConnectorStraight, t + 89.25, l + 89.25, l, t).Select

With Selection
    With .ShapeRange.Line
        .EndArrowheadStyle = msoArrowheadOpen
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
        .Weight = 1.5
    End With
End With

我希望添加的是类似于我手动添加的以下内容：

B部分

避免使用选择。我一次又一次地听到要避免选择并且不需要选择。我尝试删除选择，当我这样做时，它导致了错误。在添加形状线的末尾似乎需要.something。有一个更好的方法吗？

C部分：除了在插入时记录宏之外，还有什么方法可以获取插入形状的尺寸/属性？（该死的我为什么不记得录制宏）

更新：

所以我记录了一个宏并按如下方式编辑了代码：

Item_Estimate_Sheet.Shapes.AddShape(msoShapeRightArrow, 859.5, 35.25, 25.5, 19.5).Select

With Selection
    With .ShapeRange.Line
        .Name = "NEXT"
        .Top = Range("S3").Top
        .Left = Range("S3").Left
        .Width = …

我正在尝试计算几个值我试图计算的第一个值是这个数学公式：

RL = (P ₅ *a ₁ + P ₄ *a ₂ + P ₃ *a ₃ + P ₂ *a ₄ + P ₁ *a ₅ )/L

第二个公式中包含 RL，但也存在同样的问题。

M = RL * x - P ₅ (xa ₁ ) - P ₄ (xa ₂ ) - P ₃ (xa ₃ ) - P ₂ (xa ₄ ) - P ₁ *(xa ₅ )

当我看到这些时，我看到了一个 SUMPRODUCT。

我的P ₁ ...P ₅值在$C$12:$G$12或命名范围Axle_P中以相同的顺序排列。

我的 …

我想知道是否可以使用分组的重复字段转置列,例如:

+---------+------+
| field_1 | 1    |
| field_2 | 2    |
| field_3 | 3    |
| field_4 | 4    |
| field_1 | 5    |
| field_2 | 6    |
| field_3 | 7    |
| field_4 | 8    |
| field_1 | 9    |
| field_2 | 10   |
| field_3 | 11   |
| field_4 | 12   |
+---------+------+

到唯一的列,像这样:

+---------+---------+---------+---------+
| field_1 | field_2 | field_3 | field_4 |
+---------+---------+---------+---------+
| 1       | 2       | …