-1

基本を学んだばかりで、VB行と列の値を使用してセルを特定し、特定のセルの「値」(特定のセルに含まれる数値) を増やすように Excel ワークシートをコーディングするのを手伝ってくれる人がいるのだろうかと思います。ボタンクリック時の整数（+1など）。FAQ を調べましたが、役に立ちませんでした。見逃したと思われる場合は、リンクを提供してください。アクセスできるようになります。コーディングの基本はすでに学びましたVBAが、高度なコードを詳しく説明していただければ幸いです。

さらに説明すると、1 は範囲を5x5 cells(セル A1 から開始して、長さ 5 セル、幅 5 セル) として指定しました。A7行番号は「4」としてセルに入力され、列番号はA8「3」として入力されます。ボタンをクリックすると、セルが配置され、値が に追加されますcell = + 1。出力として、セル「C4」には、列番号と行番号が交差しているため、番号「1」が含まれているはずです。

また、列番号のセルの値は行番号のセルに転送されます。つまり、セルの値はA7「3」にA8なり、「空白」になります。これは、列番号セルの値を次の入力の行番号セルの値として使用するためです。

反応、コメント、回答、または提案は大歓迎です。お読みいただきありがとうございます。:) (このサイトではまだ画像の投稿が許可されていないため、大まかな画像の例を提供できない場合は申し訳ありません。)

4

2 に答える 2

0

私はあなたのためにこれを持っています..あなたのボタンでこれをしてください

Sub SetAddr()
Dim x, y As Integer
Dim sCell As String    

x = ActiveSheet.Range("A8").Value
y = ActiveSheet.Range("A7").Value
sCell = StrRange(y, x)

'assumed the cell is blank
If IsEmpty(ActiveSheet.Range(sCell)) Then
    ActiveSheet.Range(sCell).Value = ActiveSheet.Range(sCell).Value + 1   
End If

End Sub

Function StrRange(ByVal nRow As Single, ByVal nCol As Single) As String
Dim sC As String
Dim nC, nRest, nDivRes As Integer

sC = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
nC = Len(sC)

nRest = nCol Mod nC
nDivRes = (nCol - nRest) / nC

If nDivRes > 0 Then StrRange = Mid(sC, nDivRes, 1)
StrRange = StrRange & Mid(sC, nRest, 1) & Format(nRow)
End Function

私はあなたが残りを行うことができると確信しています....

于 2013-06-15T08:14:02.290 に答える
0 
Worksheets("wksht").Range("$a$n").Value = Worksheets("wksht").Range("$a$n").Value + m

wksht はワークシート、a は目的の行、n は目的の列、m は目的の増分係数です。値が数値であることを確認するために値をチェックする必要があることに注意してください。エンドユーザーが正しいエントリを作成するとは決して信頼できません。

ここにあります: http://www.access-programmers.co.uk/forums/showthread.php?t=165438

于 2013-06-15T05:22:20.577 に答える