Skip to main content

VBA excel automatic date when value add

 In Microsoft Excel, you can use Visual Basic for Applications (VBA) to automatically enter a date in a cell when a value is added. Here's an example of how you can do this: Press Alt + F11 to open the VBA editor. Right-click the sheet tab where you want to add the date, then select "View Code". In the code editor, paste the following code: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Target.Offset(0, 1).Value = Date End If End Sub Close the code editor by clicking the "X" in the top-right corner. This code will automatically enter the current date in the cell next to the active cell whenever a value is added in the cells from A1 to A10. If you want to change the range of cells, you can modify the range in the line "If Not Intersect(Target, Range("A1:A10")) Is Nothing Then". Note: This code works in all recent versions of Micr...

Snake game using Javascript

Here is an example of a basic snake game using JavaScript:


// canvas setup

var canvas = document.getElementById("snake-game");

var ctx = canvas.getContext("2d");


// game variables

var snake = [{x: 150, y: 150}];

var direction = "right";

var foodX = Math.floor(Math.random() * canvas.width);

var foodY = Math.floor(Math.random() * canvas.height);

var score = 0;


// game loop

setInterval(function() {

  // clear the canvas

  ctx.clearRect(0, 0, canvas.width, canvas.height);


  // draw food

  ctx.fillStyle = "red";

  ctx.fillRect(foodX, foodY, 10, 10);


  // move snake

  var head = {x: snake[0].x, y: snake[0].y};

  if (direction === "right") {

    head.x += 10;

  } else if (direction === "left") {

    head.x -= 10;

  } else if (direction === "up") {

    head.y -= 10;

  } else if (direction === "down") {

    head.y += 10;

  }

  snake.unshift(head);


  // check for collision with food

  if (head.x === foodX && head.y === foodY) {

    foodX = Math.floor(Math.random() * canvas.width);

    foodY = Math.floor(Math.random() * canvas.height);

    score++;

  } else {

    snake.pop();

  }


  // check for collision with walls

  if (head.x >= canvas.width || head.x < 0 || head.y >= canvas.height || head.y < 0) {

    alert("Game Over! Score: " + score);

    location.reload();

  }


  // check for collision with self

  for (var i = 1; i < snake.length; i++) {

    if (head.x === snake[i].x && head.y === snake[i].y) {

      alert("Game Over! Score: " + score);

      location.reload();

    }

  }


  // draw snake

  ctx.fillStyle = "green";

  for (var i = 0; i < snake.length; i++) {

    ctx.fillRect(snake[i].x, snake[i].y, 10, 10);

  }

}, 100);


// handle arrow key presses

document.onkeydown = function(event) {

  if (event.keyCode === 37 && direction !== "right") {

    direction = "left";

  } else if (event.keyCode === 38 && direction !== "down") {

    direction = "up";

  } else if (event.keyCode === 39 && direction !== "left") {

    direction = "right";

  } else if (event.keyCode === 40 && direction !== "up") {

    direction = "down";

  }

};


This is a very basic example and you can add more features like:

changing the speed of the snake as the score increases

adding a pause and resume button

 

Comments

Popular posts from this blog

Windows shortcut keys

 Here are some common Windows shortcut keys: Windows key + E: Open File Explorer Windows key + R: Open the Run dialog box Windows key + L: Lock your computer or switch accounts Windows key + T: Cycle through apps on the taskbar Windows key + D: Show the desktop Windows key + P: Project to a different screen Windows key + Tab: Open the Task View Windows key + Ctrl + D: Create a new virtual desktop Windows key + Ctrl + Right arrow: Switch to the next virtual desktop Windows key + Ctrl + Left arrow: Switch to the previous virtual desktop Windows key + Ctrl + F4: Close the current virtual desktop Windows key + Alt + Tab: Switch between open apps Windows key + Shift + S: Take a screenshot (Windows 10 only) Ctrl + C: Copy Ctrl + X: Cut Ctrl + V: Paste Ctrl + A: Select all Ctrl + Z: Undo Ctrl + Y: Redo Ctrl + N: Open a new window or document Ctrl + W: Close the current window or document Alt + Tab: Switch between open windows or programs Windows key + D: Show the desktop Windows key + E: ...

VBA excel automatic date when value add

 In Microsoft Excel, you can use Visual Basic for Applications (VBA) to automatically enter a date in a cell when a value is added. Here's an example of how you can do this: Press Alt + F11 to open the VBA editor. Right-click the sheet tab where you want to add the date, then select "View Code". In the code editor, paste the following code: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Target.Offset(0, 1).Value = Date End If End Sub Close the code editor by clicking the "X" in the top-right corner. This code will automatically enter the current date in the cell next to the active cell whenever a value is added in the cells from A1 to A10. If you want to change the range of cells, you can modify the range in the line "If Not Intersect(Target, Range("A1:A10")) Is Nothing Then". Note: This code works in all recent versions of Micr...