单击时添加单元格值并清除其他单元格值

时间:2018-05-29 18:22:40

标签: excel vba excel-vba

我正在尝试使用VBA代码删除一个单元格的值(D5),并在用户单击单元格C4时将值1添加到另一个单元格(C5)。

代码将允许我删除D5的值或将值1添加到C5,但不允许我同时执行这两个操作。

以下是代码:

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)   

   If Selection.Count = 1 Then
      If Not Intersect(Target, Range("C4")) Is Nothing Then

         Range("C5").Value = "1"

         Range("D5").ClearContents

      End If
   End If

 End Sub

感谢帮助!

1 个答案:

答案 0 :(得分:0)

这很奇怪但是你走了。 您必须将注意力从C4上移开并将其带回每个增量。 使用按钮和点击不是更好吗? 这确实会清除D5并将C5递增一。

const gulp = require('gulp');
const eslint = require('gulp-eslint');
const babel = require('gulp-babel');
const sourcemaps = require('gulp-sourcemaps');
const uglify = require('gulp-uglify');
const browserify = require('browserify');
const babelify = require('babelify');

gulp.task('bundle-js', function() {
  let files = ['main', 'about'];
  return merge(files.map(function(file) {
    return browserify({
      entries: './src/js/' + file + '.js'
    })
    .transform(babelify)
    .bundle()
    .pipe(source(file + '.js'))
    .pipe(buffer())
    .pipe(sourcemaps.init())
    .pipe(uglify())
    .pipe(sourcemaps.write())
    .pipe(gulp.dest('build/js'))
  }));
});