PIVOT 怎样才能跟 XML PATH 搭配使用实现行转列?
发布网友
发布时间：2022-05-03 15:26
我来回答
共1个回答
热心网友
时间：2022-05-03 16:55
Option Explicit Dim iCurr As Integer Private Sub Form_Activate() Dim i As Long, W As Long W = Width For i = 0 To Width Step 1 Line (i, 0)-(i, Height), RGB((255 - i / W * 255) * 2, i / W * 255 * 2, 0) Debug.Print Int(i / W * 255) Next End Sub Private Sub HScroll1_change() Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll1_Scroll() Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll2_change() Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll2_Scroll() Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll3_change() Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll3_Scroll() Text1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub追问你别忽悠人了
