送你四個字：砍掉重練
資料來源

Option Explicit
Private lRow As Long	'Selected Row
Private lCol As Long	'Selected Column

Private Sub Form_Load()
Dim i As Integer
On Error GoTo err_h
	With MSFGTable
' Generate 4 columns and 1 fixed row used as Names of the cells 
		.FixedRows = 1
		.FixedCols = 0
		.Rows = 1
		.Cols = 4
		
		.TextMatrix(0, 0) = "Value1"   'First row is for cells names
		.TextMatrix(0, 1) = "Value2"
		.TextMatrix(0, 2) = "Value3"
		.TextMatrix(0, 3) = "Value4"

' Add a data in the cells that will be edited later 
	For i = 1 To 10
		.Rows = i + 1
		.TextMatrix(i, 0) = i
		.TextMatrix(i, 1) = i + 1
		.TextMatrix(i, 2) = "val" & i
		.TextMatrix(i, 3) = "val" & i & "= " & i + 1
	Next i
	End With
Exit Sub
err_h:
	MsgBox Err.Description, vbCritical
End Sub

Private Sub MSFGTable_DblClick()
	Dim tL As Long, tH As Long, tW As Long, tT As Long 'MSFlexGrid cell boundary
On Error GoTo error_h
	With MSFGTable
	lRow = .RowSel
	lCol = .ColSel
	If lCol = 1 Or lCol = 3 Then 'Check if the clolumns we want to edit are 2 and 4
		tT = .CellTop
		tL = .CellLeft
		tH = .CellHeight
		tW = .CellWidth
		'Move the text box on the cell we dbl click on
		txtEdit.Move tL + .Left, tT + .Top, tW + 2 * Screen.TwipsPerPixelX, tH
		txtEdit.Visible = True
		txtEdit.ZOrder 0
		txtEdit.SetFocus
		
	End If
	
	End With
Exit Sub

error_h:
	MsgBox Err.Description, vbCritical
End Sub

Private Sub txtEdit_KeyPress(KeyAscii As Integer)
	If KeyAscii = Str(13) Then	'Enter
		Select Case lCol
			Case 1
				'Making Cell2 to accept numbers only
				If IsNumeric(txtEdit.Text) Then
					Change_FGCell_Value lRow, lCol
				Else
					' An error and exite the function awaiting right value
					MsgBox "Numbers only!", vbCritical
					Exit Sub
				End If
			Case 3
				Change_FGCell_Value lRow, lCol
			Case Else
				' An error becose is edited wrong Column
				MsgBox "Error invalid Cell", vbCritical
		End Select
	End If
End Sub

Private Sub Change_FGCell_Value()
	'Change selected value of the cell in MSFlexGrid
	MSFGTable.TextMatrix(lRow, lCol) = txtEdit.Text
	txtEdit.Text = ""
	txtEdit.Visible = False
End Sub

Private Sub txtEdit_LostFocus()
	Private Sub txtEdit_LostFocus()
	Select Case lCol
		Case 1
			'Making cell2 to accept numbers only
			If IsNumeric(txtEdit.Text) Then
				Change_FGCell_Value lRow, lCol
			Else
				txtEdit.Visible = False
				' put txtEdit.Text="" if you want your textbox text is deleted
			End If
			
		Case 3
			Change_FGCell_Value lRow, lCol
		Case Else
			'An error for editing wrong column
			MsgBox "Error invalid Cell", vbCritical
	End Select
End Sub