1 Sub link() 2 Dim num, sheetname 3 4 Worksheets(1).Select 5 6 num = WorksheetFunction.CountA(Columns("c:c")) 7 'MsgBox num 8 9 For i = 2 To num 10 '把第一个sheet中第3列第i行单元格的值赋值给sheetname,作为后面创建sheet时的名称 11 sheetname = VBA.UCase(Trim(Sheets(1).Cells(
1.拖一个gridControl控件在 窗体上 2.添加三列 分别是 BgColor,BgColor2 , FontColor 分别显示单元格颜色 单元格渐变颜色 单元格字体颜色 public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { List<object> list = new Li