依据单元格不同的值给另外一个单元格设置不同的单元格格式


需求：在多币种时，如果选择了一个币种类型，则在金额的单元格显示该币种对应的格式。比如如果为人民币则显示人民币符号，如果是美元则显示美元符号。
效果：

方法：

1. 
   
2.         Public Sub RangeChanged(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs) Implements Interfaces.IExcelWorkBook.RangeChanged
   
3.             If Range("C4").Text = "人民币" Then
   
4.                 Range("E4").NumberFormat = "¥#,##0.00;¥-#,##0.00"
   
5.             ElseIf Range("C4").Text = "美元" Then
   
6.                 Range("E4").NumberFormat = "$#,##0.00;-$#,##0.00"
   
7.             Else
   
8.                 Range("E4").NumberFormat = "0.00"
   
9.             End If
   
10.         End Sub '单元格编辑完成后执行事件

复制代码

写在了单元格值改变事件中，若值发生变化时，则格式对应的进行设置。

1. Imports SpreadsheetGear
   
2. Imports C1.Silverlight
   
3. Imports C1.Silverlight.C1MessageBoxButton
   
4. Imports C1.Silverlight.C1MessageBoxIcon
   
5. Imports Newtonsoft.Json
   
6. Imports Newtonsoft.Json.Linq
   
7. Imports System.Windows.forms
   
8. Namespace ExcelViewVBDotnet
   
9.    Public Class StandardInterface
   
10.        '预留位置1
    
11.        '预留位置2
    
12.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
13.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
14.            EV = Excel
    
15.            Excel.GetLock()
    
16.            AW = Excel.ActiveWorkbook
    
17.            Range = AW.ActiveWorksheet.Range
    
18.            Excel.ReleaseLock()
    
19.                   
    
20.                    ActiveWorkbook.WorkbookSet.GetLock()
    
21.             Dim BZ As String = Range("F_3277").Text
    
22.             ActiveWorkbook.ActiveWorksheet.ProtectContents = False
    
23.             With Range("F_1954").Union(Range("F_1951")).Union(Range("F_2001"))
    
24.                 If BZ = "人民币" Then
    
25.                     .NumberFormat = "¥#,##0.00;¥-#,##0.00"
    
26.                 ElseIf BZ = "美元" Then
    
27.                     .NumberFormat = "$#,##0.00;-$#,##0.00"
    
28.                 End If
    
29.             End With
    
30.             ActiveWorkbook.ActiveWorksheet.ProtectContents = False
    
31.             ActiveWorkbook.WorkbookSet.ReleaseLock()
    
32.                        
    
33.            End Sub'打开时执行事件
    
34. 
    
35.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
36. 
    
37.        End Sub'单元格选择后执行的事件
    
38. 
    
39.        Public Sub RangeChanged(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs) Implements Interfaces.IExcelWorkBook.RangeChanged
    
40. 
    
41.                
    
42.                             If e.Range.Intersect(Range("F_3277")) IsNot Nothing Then
    
43.                 Dim BZ As String = Range("F_3277").Text
    
44.                 ActiveWorkbook.ActiveWorksheet.ProtectContents = False
    
45.                 With Range("F_1954").Union(Range("F_1951")).Union(Range("F_2001"))
    
46.                     If BZ = "人民币" Then
    
47.                         .NumberFormat = "¥#,##0.00;¥-#,##0.00"
    
48.                     ElseIf BZ = "美元" Then
    
49.                         .NumberFormat = "$#,##0.00;-$#,##0.00"
    
50.                     End If
    
51.                 End With
    
52.                 ActiveWorkbook.ActiveWorksheet.ProtectContents = False
    
53.             End If
    
54.                        
    
55.         End Sub '单元格编辑完成后执行事件
    
56. 
    
57.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
58. 
    
59.        End Sub'按钮/标签点击事件
    
60. 
    
61.        Public Sub FollowHyperlink(sender As Object)
    
62. 
    
63.        End Sub '暂不支持
    
64. 
    
65.    End Class
    
66. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
67. End Namespace
    

复制代码

最新版本命令树中已经增加了对设置单元格格式的支持，可以不用写VBA直接通过命令树来设置。

1. Imports SpreadsheetGear
   
2. Imports C1.Silverlight
   
3. Imports C1.Silverlight.C1MessageBoxButton
   
4. Imports C1.Silverlight.C1MessageBoxIcon
   
5. Imports Newtonsoft.Json
   
6. Imports Newtonsoft.Json.Linq
   
7. Imports System.Windows.forms
   
8. Namespace ExcelViewVBDotnet
   
9.    Public Class StandardInterface
   
10.        '预留位置1
    
11.        '预留位置2
    
12.        Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
13.        Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
14.            EV = Excel
    
15.            Excel.GetLock()
    
16.            AW = Excel.ActiveWorkbook
    
17.            Range = AW.ActiveWorksheet.Range
    
18.            Excel.ReleaseLock()
    
19.                   
    
20.                    ActiveWorkbook.WorkbookSet.GetLock()
    
21.             Dim BZ As String = Range("F_3277").Text
    
22.             ActiveWorkbook.ActiveWorksheet.ProtectContents = False
    
23.             With Range("F_1954").Union(Range("F_1951")).Union(Range("F_2001"))
    
24.                 If BZ = "人民币" Then
    
25.                     .NumberFormat = "¥#,##0.00;¥-#,##0.00"
    
26.                 ElseIf BZ = "美元" Then
    
27.                     .NumberFormat = "$#,##0.00;-$#,##0.00"
    
28.                 End If
    
29.             End With
    
30.             ActiveWorkbook.ActiveWorksheet.ProtectContents = False
    
31.             ActiveWorkbook.WorkbookSet.ReleaseLock()
    
32.                        
    
33.            End Sub'打开时执行事件
    
34. 
    
35.        Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
36. 
    
37.        End Sub'单元格选择后执行的事件
    
38. 
    
39.        Public Sub RangeChanged(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs) Implements Interfaces.IExcelWorkBook.RangeChanged
    
40. 
    
41.                
    
42.                             If e.Range.Intersect(Range("F_3277")) IsNot Nothing Then
    
43.                 Dim BZ As String = Range("F_3277").Text
    
44.                 ActiveWorkbook.ActiveWorksheet.ProtectContents = False
    
45.                 With Range("F_1954").Union(Range("F_1951")).Union(Range("F_2001"))
    
46.                     If BZ = "人民币" Then
    
47.                         .NumberFormat = "¥#,##0.00;¥-#,##0.00"
    
48.                     ElseIf BZ = "美元" Then
    
49.                         .NumberFormat = "$#,##0.00;-$#,##0.00"
    
50.                     End If
    
51.                 End With
    
52.                 ActiveWorkbook.ActiveWorksheet.ProtectContents = False
    
53.             End If
    
54.                        
    
55.         End Sub '单元格编辑完成后执行事件
    
56. 
    
57.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
58. 
    
59.        End Sub'按钮/标签点击事件
    
60. 
    
61.        Public Sub FollowHyperlink(sender As Object)
    
62. 
    
63.        End Sub '暂不支持
    
64. 
    
65.    End Class
    
66. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
67. End Namespace
    

复制代码

最新版本命令树中已经增加了对设置单元格格式的支持，可以不用写VBA直接通过命令树来设置。